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SUMMARY OF AMENDMENTS 


DL/I Version 1.5 


This version Of DL/I provides system changes and functional enhancements 
such as: 


Field Level Sensitivity 
This function makes it possible for the user to specify only those 
fields in the physical definition of a given segment that are to be 
included in his application's view of that segment, while remaining 
insensitive to the other fields in the segment. 

Extended Logical Relationships 
The restriction of only one logical relationship per logical path has 
been removed. The user may now define as many logical relationships 
as he needs to satisfy his requirements. 

Unique Segment Support 


It is possible for the user to specify that only one occurrence of a 
particular segment type is allowed under a particular parent. 


Selective Log Print 
It is possible for the user to selectively print data from the log, 


using the log print utility, by specifying a DBD name, CICS task ID, 
or relative block number. 


DL/I FBA Device Support ICR 


Technical Newsletter LN24-5614 documents the following from the FBA 
device support Independent Component Release (ICR): 


FBA Device Support 


This support makes it possible for data bases and utility work files 
to reside on Fixed Block Architecture devices. 


DL/I Version 1.4 


This version of DL/I provides system changes and functional enhancements 
such as: 


RPG II Support 
Application programs written in RPG II can now access DL/I data bases 
in a manner similar to programs written in COBOL, PL/I, and Assembler 
language. 

Prefix Resolution Improvement 
The prefix resolution utility now passes an actual maximum record 
length, instead of a maximum possible record length, to the DOS/VS or 
DOS sort/merge program. 

Extended DL/I Call Interface 
This support, along with CICS/VS high level language support, 


eliminates the need for application programs to reference internal 
CICS/VS control blocks. A new parameter has been added to the PCB 
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call to obtain the address of the DL/I User Interface Block. This 
control block contains the information previously returned in the 
TCA. 


This enhancement is required for application programs written in RPG 
II. It may also be used in programs written in-COBOL, PL/I, and 
Assembler. 


Intersystem Communication 


CICS/VS intersystem communication support enables DL/I application 
programs to access a data base that is resident on another CPU. 


High Level Language Debugging for PL/I 


This Support for PL/I allows diagnostic information to be supplied by 
both PL/I and DL/I. It is designed for only batch and MPS batch 
execution of DL/I, and does not require any changes to the PL/I code. 


Performance Improvements 


Performance improvements have been made to image copy, the batch 
partition controller, the HD unload utility, the log buffer and log 
print utility, and program isolation. 


_DL/I Version 1.3 


This version of DL/I provides system changes and functional enhancements 
such as: checkpoint capability with the new DL/I call function CHKP; 
program isolation capability for online and MPS users as an optional 
replacement for intent scheduling; the distributed free space feature to 
improve performance of data bases with high insert activity; a log print 
utility to enable the printing of log files; a disk logging facility for 
the disk-only user; support for the IBM 3350 direct access storage; and 
other servicability, performance, and functional capabilities. 
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PREFACE 


This manual is to be used with the program listings for DL/I DOS/VS. It 
discusses the internal operation of the DL/I system as an application 
program under DOS/VS. It is intended for use by persons involved in 
program maintenance and by system programmers who are altering the 
program design. 


DL/I DOS/VS is a data management control system that assists the user in 
creating, accessing, and maintaining large common data bases. In 
conjunction with the Customer Information Control System (CICS/VS), DL/I 
DOS/VS can be used in an online teleprocessing environment. 


Readers of this manual must be thoroughly familar with the use of 
DOS/VS, and of CICS/VS, if DL/I DOS/VS is to be used in the online or 
multiple partition support (MPS) environment. 


Because DL/I DOS/VS is a functional subset of the IBM Information 
Management System/Virtual Storage (IMS/VS), some specific IMS or OS 
terms are used in this manual. These terms are used to allow Saey 
reference to the documentation of the related systems. 

This manual is divided into seven sections. 

Section 1: Introduction: Summarizes DL/I DOS/VS giving general 
information about the purpose of system control modules , DL/I facility 
modules, MPS modules, and utility modules. 

Section 2: Method of Operation: Contains HIPO diagrams that describe 
the DL/I modules. The diagrams include cross-references to labels in 
the program listings. 


Section 3: Program Organization: This section provides descriptive 
information about the DL/I modules and major routines. 


SECTION 4: Directory: Lists DL/I module, entry point, and control 
section names with cross-references to Section 2 of this manual. 


Section 5: Data Areas: Describes the data areas used by DL/I. Field 
and flag names for each data area are also listed alphabetically. 


Section 6: Diagnostic Aids: Gives information that may be helpful in 
locating specific program listings. 


Section 7: Appendixes: Contains information about L-LC/CC in DL/I, DBD 
generation, PSB generation and DL/I macros. : 


An index is also included. 

Note: In this publication, the system and component name DOS/VS should . 
be read as DOS/VSE unless that name explicitly refers to DOS/VS release 
34 or an earlier DOS/VS release. 

Related Publications 

DL/I DOS/VS General Information Manual, GH20-1246 

DL/I DOS/VS Application Program Reference Manual, SH12-5411 

DL/I DOS/VS Utilities and Guide for the System Programmer, SH12-5412 

DL/I DOS/VS System Application/Design Guide, SH12-5413 
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DL/I DOS/VS Messages and Codes,SH12-5414 
DL/I DOS/VS Guide for New Users, SH24-5001 


DL/I DOS/VS Diagnostic Guide, SH24-5002 


For DOS/VS messages and return codes: 


DOS/VSE_ Messages, GC33-5379 
DOS/VSE Macro User's Guide, GC24-5139 


DOS/VSE Macro Reference, GC24-5140 
Using VSE/VSAM Commands and Macros, SC24-5144 
VSE/VSAM Messages and Codes, SC24-5146 


Users employing DL/I DOS/VS in an online environment should have access 
to the following CICS/VS publications: 


CICS/VS_ System Programmer's Reference Manual, SC33-0069 
CICS/VS Application Programmer's Reference Manual, SC33-0079 
CICS/VS_ System Application Design Guide, SC33-0068 

CICS/VS_ System Programmer's Guide (DOS/VS), SC33-0070. 
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SECTION i; INTRODUCTION 


Data Language/I Disk Operating System/Virtual Storage (DL/I DOS/VS, 
hereafter referred to as DL/I) is a data management control system that 
assists the user in creating, accessing, and maintaining large common 
data bases. In conjunction with the Customer Information Control System 
(CICS/DOS/VS), DL/I can be used in an online teleprocessing environment. 
Also in conjunction with CICS/VS, DL/I provides a centralized data 
facility, multiple partition support (MPS), which controls concurrent 
access to data bases from multiple batch partitions. 

Section I summarizes and describes the following: 

e DL/I Batch System 

e DL/I Online Processor 

e DL/I Facility Modules 

e Multiple Partition Support (MPS) 


e DL/I Utilities 
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DLZI_ BATCH SYSTEM. 


The DL/I batch system executes as an application program in a virtual 
storage environment under DOS/VS. The DOS/VS partition in which the 
DL/I batch system executes is composed of the elements shown in Figure 
arte These are: | 


The system control facility 

The DL/I. facility “eo . 
The DOS/VS VSAM and SAM data management modules 
The user application program 


The major components of the DL/I system are the ayecen control facility 
and the DL/I facility. The system control facility receives control 
from DOS/VS job control, initializes the DL/I batch system, and 
interfaces between DL/I and the user application program. The DL/I 
facility interfaces with the DOS/VS VSAM and SAM data management modules 
when performing the data base call function PoaMestee. by the user 
application. 


The system control facility is divided into four functional areas (see 
Figure 1-2): 


Region control 

Application program control 
Language interface 

Program request handler. 


Region control is responsible for a general group of housekeeping 
functions common to various optional processing modes of the DL/I DOS/VS 
partition (also called a region). These functions are: 

e Initial interface with DOS/VS job management 

e Analysis and validity checking of DL/I parameter information 


e Loading the batch nucleus. 


Application program control is entered from region control and performs 
the following functions: 


e Loading the DL/I application control blocks (PSB and DMBs) and 
relocating the control block addresses. 


e Creation of the PSB intent list and the DMB directory (DDIR). 


e Acquiring and formatting storage for the buffer pool control blocks 
and their related I/O buffers. 


e Loading the DL/I facility modules. 

e tLoading the application program and passing control to it. 

The language interface provides communication between the application 
program and the program request handler. This module is link-edited 


with the application program and provides a common interface for DL/I 
calls written in PL/I, COBOL, RPG II, or Assembler language. 
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Figure 1-1. Elements of a DL/I DOS/VS Batch Partition 
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Figure 1-2. System Control Facility Relationships 
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LOS, 


The program request handler receives the DL/I call from the user 
application program via the language interface. It performs the 
following functions: 


e Checks validity and, if necessary, reformats the caller"s parameter 
lists and submits them to the DL/I facility. 


e Accepts parameter lists from the DL/I facility and moves data to the 
user*s work area, if required. 


e Returns control directly to the user application program. 


See Section 3 for a detailed description of each of these modules. 


DL/I_ ONLINE PROCESSOR 


The DL/I system operating in a teleprocessing environment under CICS/VS 
contains all the functional parts listed for the batch system, plus a 
set of service routines called the DL/I online processor. These 
routines establish a connection between DL/I and the CICS/VS-DL/I 
interface. 


In an Online environment, the DL/I system executes within the CICS/VS 
partition. CICS/VS provides exit interfaces to DL/I for the following: 


e DL/I system initialization during CICS/VS initialization. 
e DL/I system termination during CICS/VS termination. 


e DL/I user task scheduling of DL/I resources before an application 
program accesses DL/I. 


e DL/I user task completion and return of DL/I resources after the 
application program has issued a CICS/VS synchronization point 
(SYNCPOINT) command or has completed DL/I processing. 


When the user application program issues a DL/I call, control passes to 
the online language interface module and the program request handler. 
The program request handler validates the call and passes it to the DL/I 
facility. The DL/I facility invokes CICS/VS services through the online 
interface for such functions as transaction and storage management. On 
completion of the DL/I call, the DL/I facility returns control to the 
CICS/VS application program via the program request handler. The 
program request handler also interfaces with CICS/VS for any functions 
performed externally to DL/I. 
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DL/I FACILITY MODULES 


The functions of data base creation, access, maintenance, and 
reorganization are accomplished by the DL/I facility (see Figure 1-3). 
The DL/I call is passed from the system control facility to the DL/I 
call analyzer, which is the focal point of the DL/I facility. The type 
Of call is analyzed (DL/I call, pseudo call, or internal call resulting 
from a DL/I call), and control is passed to the appropriate action 
module to process the call. 


The action modules of the DL/I facility, together with their major 
functions, are listed below: 


e Open/Close Module 


- Open DL/I data bases 

- Close DL/I data bases 

= Interface with data base logger to write data set open record to 
log file 


e Delete/Replace Module 


= Delete segment of DL/I data base in conjunction with buffer | 
handler 

- Replace segment of a DL/I data base in conjunction with buffer 
handler 

= Interface with data base logger to record changes on log file 

= Interface with space management for HDAM and HIDAM data bases 

- Interface with index maintenance for data bases with indexes 


e Load/Insert Module 


= Load segments into a DL/I data base in conjunction with the 
buffer handler 

= Insert segments into a DL/I data base in conjunction with the 
buffer handler 

= Interface with data base logger to record changes on log file 

- Interface with space management for HDAM and HIDAM data bases 

= Interface with index maintenance for data bases with indexes 

- Issue I/O for Simple HSAM and HSAM data bases 


e Retrieve Module 


= Retrieve a segment of a DL/I data base in conjunction with the 
buffer handler 

_ Perform data base positioning for load/insert 

= Issue I/O for Simple HSAM and HSAM data bases 


e Index Maintenance 
- Maintain any indexes for HDAM or HIDAM data bases in conjunction 
with the buffer handler 
- Interface with data base logger to record changes on log file 
e Space Management 
- Allocate and maintain free Space on DASD in conjunction with the 
buffer handler for storage of DL/I segments for HDAM and HIDAM 


data bases 
- Interface with data base logger to record changes on log file 


1-6 Licensed Material ~- Property of IBM | 





Buffer Handler 

- For HDAM or HIDAM data base, satisfy requests for segments or 
records from data currently available in the buffer pool 

= Issue I/O to VSAM for HDAM or HIDAM data base requests that 
cannot be satisfied from the buffer pool 

~ Issue I/O to VSAM for all Simple HISAM and HISAM data base 
requests | 

Data Base Logger 


= Record all data base modifications on the DL/I log tape using 
DOS/VS SAM, or disk log using VSAM or CICS Journal 


Queuing Facility 
- Provide support for contention control at the segment and record 
= seas deadlock detection and resolution. 
FLS Copy Module 
- Provide user view/physical view conversion for field level 


sensitivity. 


See Section 3 for a detailed description of the modules. 
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Figure 1-3. DL/I Facility Relationships 
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MULTIPLE PARTITION SUPPORT {MPS) 


DL/I has the capability to enable application programs executing in 
different partitions to access the same data base concurrently. This 
capability, multiple partition support (MPS), permits, for example, 
online applications to issue inquiries to a data base while a batch 
program updates it. 


In addition, MPS enables multiple batch and online application programs 
to access a data base concurrently instead of serially. MPS uses the 
DL/I resources and the multitasking facilities of DL/I and CICS/VS. 


DL/1 UTILITIES 


The DL/I utility modules are categorized as follows: 


e Application control blocks creation and maintenance: this utility 
program is used to merge and expand into an internal format the 
control blocks created by the DBD and PSB generation utilities. The 
control blocks created by this utility are used by the DL/I system. 


e Data base recovery: This is a set of utility programs employed to 
reconstruct a data base. 


e Data base reorganization: this is a set of utility programs employed 
to reorganize a data base. Use of these programs reduces direct 
access storage requirments by compacting data and thus reducing data 
base access time. 


e Data base iogical relationship resolution: this is a set of utility 
programs employed to update pointer information when data bases 
invelved in logical relationships and/or secondary index 
relationships are initially loaded or reorganized. 
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SECTION 2: METHOD OF OPERATION 


This section contains HIPO (Hierarchy, plus Input, Process, Output) 
diagrams. 


The three areas of each HIPO diagram are, from left to right, the input 
area, process area, and output area. Read the diagrams beginning with 

the process area. This describes a function that is performed. Arrows 
leading from the input area show what, if any, input is used to perform 
that function. Arrows leading to the output area show what output, if 

any, is produced. | 


At the bottom of each HIPO diagram is an area called "extended 
descriptions". This area contains comments not included in the process 
area Of the diagram. For most items in the process area, extended 
description items with the same numbers give details that cannot be 
easily shown in diagram form or in the space allowed. 


Various forms Of arrows represent different usage conventions. Also, 
items are often boxed in to show that they are related to the same 
function. Figure 2-1 shows the conventions used in the HIPO diagrams. 


Figure 2-2 is a visual table of contents with figure numbers. The 
figure numbers refer to the HIPO diagrams. 
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Figure 2-1. Guide to Reading Method of Operation Diagrams 
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Figure 2-2. Visual Table of Contents for DL/! DOS/VS HIPO Charts 
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(See Appendix A) 
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Figure 2-3. Batch Initialization (Overview) 
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From DOS/VS 
PROCESS 


1. Enter batch initialization. 
(See Figure 2-3.1) 


2. Begin batch partition control. 
(See Figure 2-3.2) 


3. Parameter scan and validation. 
(See Figure 2-3.3) 


4. Begin application program control. 
(See Figure 2-3.4) 


5, Utility block build request handler. 
(See Figure 2-3.5) 


6. Complete application program control. 
(See Figure 2-3.6) 


7. Block loader and relocator. 
(See Figure 2-3.7) 


8. Complete control program initialization. 
(See Figure 2-3.8) 


9. DL/I control card analyze routine. 
(See Figure 2-3.9) 
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To DOS/VS 
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Figure 2-3.1. Batch Initialization Entry 


INPUT OUTPUT 


PROCESS 







From 
Figure 2-3 
Step 1 


COMREG 


1. Establish load address for the nucleus 
module. 


Pe «2. Read parameter information. 
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PARM 
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Figure 2-3 
Step 2 
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‘te | 
4. Enter common SYSLOG SYSLOG 
message routine. 
To Caller 


DLZRRCOO — Batch Initialization E.P. CSECT | DLZRRCOO 


Routine Label 


Extended Description Extended Description 





1. DLZBNUCO load address is set at 
DLZRRCOO start + X‘100’. 


2. 
3. The reserved space allows loading 


of DLZBNUCO0 without overlaying 
critical code in this module. 
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Figure 2-3.2. Batch Partition Control 
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: DLZDLROO ... 
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+36 BOSIVS Core DL/I facility modules. OS o road - 


Image Library DLZDDLEO... 
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ENDINIT 


_LOADTBL 


DLZBNUCO... | | sa 
rT» 2, Load DLZBNUCO into the 5746-XX 1 COPYRIGHT. ... 
-— ' partition. (DLZBNUCO) 
R2 , DLERNCOO) (See Note) 
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Image Library 


R2 RQ 


: rere SCD PST 
———P 3. Set addressibility and 


DOS/VS initialize the SCD and PST 
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Fi SCOUPPER _| 
Figure 2-3 SCDUPPER 


Step 3 : SCDCOMRG 
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_ Extended Description Routine Label _ Extended Description Routine _— Label 


1. The end address of phase DLZRRCOO DLZRRC10 |DLZRRC10 
is obtained from the DOS/VS 
COMREG and saved at ENDINIT. 


Write message DLZO1 11 if a 
required module is not found 
in the DOS/VS core image library. 


Note: DLZRRCOOvrnp is the module 
identifier. Each DL/I module is 
identified with its full eight-byte 
module identifier in character 


format followed with a four-byte 
field identifying the module level. 
The level format is vrnp; where ‘v’ 
is the version, ‘tr’ is the release, ‘n’ 
is an additional identification digit, 
and ‘p’ is the latest PTF number 
that has been applied. 
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Figure 2-3.3. Parameter Scan and Validation 
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DLZRRC10 — Batch Partition Control CSECT 


Extended Description 








1. Write message DLZO151 if the first 
parameter is not DLI, ULU, UDR, 
or ULR. 


. Although the DB prefix resolution 
utility is a logical relationship 
utility, it is not processed with 
the others because it executes 
directly, not as an application 
to DL/I. 


. Write message DLZO15I if syntax 
error occurs. 


. PSTPCPSB now contains the 
dbdname from the ULU, UDR, or 
ULR parameter card or the 
psbname from the DLI parameter 
card. Insert a utility DBD 
suffix (U) or insert a PSB 
suffix (P). 


. No control blocks are loaded 
for DLZURPRO, DLZURGSO, or 
DLZURGPO during batch 
initialization. These three 


PROCESS 


. Scan parameters thru the number 


. Pad the dbdname or psbname 


. Set up utility call interface. 


Routine 


DLZRRAOO|DLZRRAOO 


OUTPUT 


. Determine the parameter 


identifier. 


. Exit if the first parameter is 


ULU and the next parameter is 
a logical relationship utility. 
Skip to Step 5. 


PST 
PSTPCPGM SCDBFPL 
PSTPCPSB 


of DB buffer subpools parameter 
if there is one. 





PSTPCPSB 
PSTPCT1 


to eight characters. SCDSIND — 










To 
Figure 2-3 
Step 4 


PSTPCPGM 


BI, 
To SCDEREEN 
Figure 2-3 
Step 4 





Routine Label 





utilities issue the DLZBLKLD 
macro specifying the utility 
PSB and the BLDB call for each 
data set used. The ACB utility 
builds the utility PSBs they 

use. 


SCANPARM 


PARMPAD 
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Figure 2-3.4. Application Program Control (Part 1 of 2) 
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Extended Description Routine Label Extended Description _ Routine Label 





1. This module’s end address is used DLZPCCO0 |DLZPCCO00O 
to initialize the beginning of 
storage available for control 
block building. 


oe LOOKDMBS 
3. | FINDISS 


4. Write message DLZ0121 if - CONTPCC 
program is not found. LOADS 


5. UPSI card information has STXITAB 


been moved to the SCD. 
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Figure 2-3.4. Application Program Control (Part 2 of 2) 
INPUT PROCESS 


SCD 
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DLZRRC10 — Batch Partition Control CSECT 


6. Linkage to DLZPRHBO is done 
via MVCOM macro. 


. If utility program is a logical 
relationship utility, set R1 to 
point to the PST before passing 
control to the utility. Set R1 
to point to the user PCB list 
for all other programs. 
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Figure 2-3.5. Utility Block Build Request Entry 

INPUT. , | = PROCESS. 
From 
- Figure 2-4.1 
- Step 2 


1. Restore registers saved during 
initialization. 


ULUCNTRL > 2. Build the blocks. 


DLZPINIT 


Block Loader 
~-and Relocator. 
. 2-3.7 













| | 
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PST PDIR to PCBs. 


PSTPREAD } | PDIRADDR 





4. Return to caller. 


DLZRRC10 — Batch Partition Control CSECT 


Q 


Extended Description Routine __ Label 









1. Control comes from the batch ULUPRHEP|ULUPRHEP §. 
program request handler (DLZBNUCO) 
when a utility block build request 
(BLDB) is detected. 


. If a block build error is indicated 
in ULUCNTRL, X‘OC’ is set 
in register 15 and control returns 
to the utility program. 
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Figure 2-3.6. Application Program Control Completion 
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ended Description Routine Label 





1. TERM record ID=X‘07”. DLZPCCOO |BALRUSER & 


4. The UNLD call is bypassed if ‘BYULUEND 
the ULU return code in register 
15 is not zero. 

6. Issue macro DLZTRCAL DLZEOJ 

TYPE=STOP. Trace 

ID=X‘FC’. 
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[ Figure 2-3.7. Block Loader and Relocator (Part 1 of 5) 


. From Figure 
2 INPUT some Fea Ste pm PROCESS = , , pr ouTPuT 


or 2-3.5, 
Step 2 


1. Bypass block loading if identifier 
is ULU and entering here from 
Application Program Control 
(Figure 2-3.4, Step 1). Go to 
Figure 2-3.8, Step 8. | 
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PSBLIST 
DLZRRC10 — Batch Partition Control CSECT ? DLZRRCOO 
Extended Description | Routine Label Extended Description : Routine’ — Label 





3. The PSILs are scanned for DDIRBILD 
DMB names and a DDIR is 
created for each unique DMB 
encountered. The address of 
the DDIR replaces the 
respective DMBNAME in each 
PSIL. 


1. There are no blocks to load ‘-DLZPINIT | DLZPINIT 
for the logical relationship 
utilities if this is the first 
~ call. 


The return address is saved 
in RETRGSV. 


. If the PCB is not found and 
the parameter identifier is 
ULU for a logical relationship 
utility, set a block load error 
indicator and return to 
Figure 2-3,5, Step 3. 


| PCBRLUIP 


Write message DLZO121 if the 
PSB is not found. 


Write message DLZ0171 if the 
PSB version/modification level 
is incorrect. 
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| Figure 2-3.7. Block Loader and Relocator (Part 2 of 5) 
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Extended Description 


5. 
| 6. The call sensitivity and data 

- base organization of the SDB 
is checked to see if buffer pool 
space is required. An indicator 
in the DDIR is turned on if 
Space is required. 


. The pointer to the PSBLIST 
is bumped to the next PCB 
pointer entry and processing 
returns to Step 4 if we are not 
at the last PCB. 


If the index PCB exists, return 
to Step 5 and relocate it. 


. Write message DLZQ12I if the 
DMB is not found. 


Write message DLZ018I1 if the 
DMB version/modification level 
is incorrect. 





PROCESS 


5. Relocate the PCB and JCB 
pointers. 


6. Initialize all SDBs belonging 
to a particular JCB. 


7. Test for the end of the PCBs in 
the PSBLIST. If not the end, 


return to Step 4. 


8. Load and relocate each DMB. 


LOAD Macro 


ee 
(eu) 


9. Determine if buffer pool space 


required and set indicators. 
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LOAD Macro (Directory Entry) 
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Routine Label 





If the DMB is not found and 
the parameter identifier is ULU 
for a logical relationship utility, 
set a block load error indicator 
and return to Figure 2-3.5, 
Step 3. 


. If buffer pool space is required, 


the size of each control interval 
(rounded to the next multiple 

of 512) is indicated in PSTWRK!1 
and PSTWRK2 for later allocation 
of the buffer pool. 


2-13 


| Figure 2-3.7. Block Loader and Relocator (Part 3 of 5) | i, BSP 
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Label Extended Description Routine — 


DLZPINIT |RANCKLUP§ 


Routine 





‘Extended Description 












11. The DTF address constants are 
adjusted if access is HSAM or 
simple HSAM. 


12. If HISAM, two sets of control 
blocks will be built. 


13. The segment compression routine 


10. Before loading the randomizer a 
check is made with all currently 
loaded randomizers. If one with 
the same name as the one we are 
loading is found, the entry point 
is resolved and the actual load is 
bypassed. 


Return to Step 8 until there are 
no more DDIRs. 


Write message DLZO12I if the ran- 
domizing module is not found. 










for each PSDB is loaded (if it 
hasn’t already been loaded for a 
previous PSDB). 


Write message DLZ01 21 if the 
compression routine is not found. 
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| Figure 2-3.7. Block Loader and Relocator (Part 4 of 5) 
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Label 
DLZPINIT |PROCSEC 


Extended Description 








; 14. If a secondary list is present, 
its code is tested and referenced 
DMBs are resolved to DDIR 
pointers and placed in the list. 


If an index user exit routine is 

| present it is loaded if it hasn’t 
already been loaded for a 
previous SEC. 


Write message DLZ266l if there 
is an invalid secondary list code. 


Write message DLZO0121 if the 
uSer exit routine is not found. 


Write message DLZ263]1 if the 
SEC makes an invalid DMB 
reference. 


14. Process secondary list if 
present for each PSDB. 


(=) 


Return to Step 11. ; 


15. Connect data bases to PCBs. 


> 16. Connect SDBs to PSDBs. 





OUTPUT 


DL/I Partition 


Index Exit Routine . 
PSDB 


DMBLST 


XMPRM 


DMBXMXEP 
DMBXMRES 


SEC 


DMBSFLG1 


DMBSECDB 
DMBXDSDB 


DMBXITAD 


DMBXPSDB 


LOAD Macro (Directory Entry) 


LOAD Macro 


SCD 


DOLIUP 





P D 
DBPCBPRO DSGDCBA 


DSGDMBNO 





SDBXP 


SDBXPFDB 


PSDB 


DMBFSDB 


SDB 





DLZRRCOO 


15. If this is Reload Restart, PCBROUT 
the parameter ID is ULR. 

Bypass checking whether 

the processing option should 


be changed to load or not. 
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Figure 2-3.7. Block Loader and Relocator (Part 5 of 5) | — Pes 03 
INPUT PROCESS : OUTPUT 


SCD _ 
SDBXFFSB || SCDDLIUP 
SDBXFL SCDPDCA 


SDBXFNB ~ 


FSB ~PDCA 


FSBIVA PDCAFERT — 
FSBFERTA 


FERT 
FERTRTEP 


SDBXPANS | PSB Prefix _— 17. Initialize field level sensitivity tables. 


ScD 
SDBXPSZ PSBCODE SCDCPY10 FERTRTLG 


SCDDLIUP FERTPRES 


PSBFRTA | 





FSBUVTYP 


FSBIVA FERTRTEP | 
FSBFERTA || FERTNAME ||} To Figure 
FSBLEN FERTPRES 2-3 Step 8 





DLZRRC10 — Batch Partition Control CSECT DLZRRCOO 


Extended Description Routine Label Extended Description Routine Label 


17. Includes FERT, FSB, and loading user 
field exit routines. 






2-16 Licensed Material - Property of IBM 


Figure 2-3.8. Control Program Initialization Completion (Part 1 of 3) 


From 
Figure 2-3 
Step 8 


INPUT 


PST 
PSTWRK3 


SCD 
SCOBFPL 
SCDDLIDN 


BFPL 


ee NEED > 


SCDDLIUP 





BFPLLEN 


SBIF 


SUBLEN 
SUBPOOLN ven eee y 





ScD 


SCODBFPL 


) > 


BFPL ACBXT 


BFPLSUBD OMBRBASN 
BFPLSUIN 


aE emer cue aE) 


DMB 


PST Subpool 


PSTWRK1 Directory 


PSTWRK3 





DLZRRC10 — Batch Partition Control! CSECT 


Extended Description 








DLZCPI00 | DLZCPIOO 


_ 2. Write message DLZOO9I if number 
of subpools specified in the param- 
eter statement are not equal to the 
number of HDBFR statements. 


. This step determines the size of the 
subpools. They are allocated, largest 
first, until the specified number is 
exhausted. Remaining DMBs requir- 
ing subpools are assigned evenly 
across all existing subpools. If you 
specified more subpools than 
necessary, an additional pool of 
512 buffer size is allocated for 
delete workspace. 


The subpool sizes are sorted so that 
the largest subpool appears first in 
the information table. 


PROCESS 


1. Acquire storage for the buffer 
pool prefix and subpool informa- 
tion table. If subpools are not 
required, skip to Step 8. 


2. Analyze and interpret the 
following parameters in the 
DL/I parameter card: 


HOBFR HSBFR TRACE ASLOG LOG 


em NXTPORT 


BALR DL/t Control 
Card Analyze 
Routine 






3. Format the buffer pool prefix. 


4. Store buffer sizes in subpool 
information table. 


BFRPRNT 


BFPNDCLR 
PRMSRET 


BFPREADY 
NODMMOV 













OUTPUT 


SCDDBFPL 


SCD 


ScD 


SCDDBFPL 
SCDDLIPS 


PST 


Dr) R 


PDIRCODE 






BEP 


SBIF 
SUBBFSIZ 
SUBBDMBCT 


DLZRRCOO 


Routine 
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Figure 2-3.8. Control Program Initialization Completion (Part 2 of 3) 
INPUT , PROCESS 


BFEPL 


SCD. 
BFPLSUBD SCDDLIDM 
BFPLSUIN SCDDLIDN : 


5. Assign DMBs not previously © 
' assigned to subpools by HDBFR 
statements. : : 


BIF ACBXT 
] 
Isuspmect | DDIR 


| 
al 





6. Print subpool allocation | 
statistics. . 






BFPL SBIF 


BFPLPRAD ||SUBBFNO 
BEPLSUIN 1|}SUBBFS12 _ 





Vy, 


7. Format buffer prefixes and 
allocate !/O buffers. 






ScD 


SCDDBFPL | - 





8. Bypass DL/I load processing if 
they have once been loaded. 
Skip to Step 13. 


DLZRRC10 — Batch Partition Control CSECT 


Extended Descri Routine —_ Label 











tion | 





5. Write message DLZ2621 if buffer © 
allocation error occurs. 


BFRINIT 
DLILOAD 
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Extended Descri 





tion 





» OUTPUT 









SBIF 
SUBDMBCT DMB 
: Subpool 
Directory 
ACBXT 


-_ 
|_ 


SYSLST 


DMBRBASN. 


SBIF ScD 


SUBUCPRE. SCDDLIUP 
SUBUCHAI | 


BFFR 


BFFRSW 
BFFRADDR | 


i DLZRRCOO 


Routine 2 Label 








Figure 2-3.8. Control Program Initialization Completion (Part 3 of 3) | | 
INPUT PROCESS OUTPUT 


LOADTBL 
DLZDBHOO 










DL/! Partition 


To) 9. Load each DL/I facility module 
if required and not in SVA. 


SCDDDBHO 
thru 
SCDDSEHO 






SCD _ 


SCDDLIUP 
DOS/VS 
Core Image Library 






DLZCPY10 DL/I Partition 


10. Load FLS module if needed. 





DOS/VS 
Core Image Library 


Pe) 11. Load the trace module if needed. 
DLZTRCAL 
TRACSAV 
DOS/VS | | : 
| Core Image Library 
See 12. Initialize DB logging. 
SCDDBLNT , . 
SCDSIND DLZRDBLO 
BALR LOG INIT 
SCD PDIR 





! 


ScD 
SCDDLIUP 
SCDTRACE 









I 


SCDREENT ]} | PDIRSYM 
SCDCWRK 


13. Write log schedule record. 


DLZRDBLO i _ 
Log 1/0 A 


I 


Area BALR LOGWRITE 


Only 
Eni Patni Eevee ae) 









14. Return to caller. 


LOGOUT 


DLZRRC10 — Batch Partition Control CSECT DLZRRCOO 


Extended Description Routine Extended Description Routine Label 





. Issue macro DLZTRCAL TYPE=STAR 
following the load. Trace ID=X‘FE’. 


Write message DLZ0261 if initialization 
fails. 


. Cancel if open error returned. 
Upon return, the entry points to 
DLZRDBLO in the “Data Base Change 
Log Section’ of the SCD (beginning 
with the SCDREENT) are initialized. 


. The scheduled record ID=‘08’. 


. Return is made to the instruction _ 
following the BALR to DLZPINIT. 
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Figure 2-3.9. DL/! Control Card Analyze Routine 


INPUT PROCESS 
From 

Figure 2-3.8 

Step 2 

Workarea SCD 


SCDDLIDM 
SCDDLIDN 


DOIR 


——-—P 1. Interpret the HDBER statement. 


DOIRLEN 


CNTHDMB 


SBIF 


SUBLEN 


ScD Workarea 


: ——-—-—-F> 2. Interpret the HSBFR statement. 


DDIR DMBACBAD 
DDIRADDR: | | DMBACBLN 


DMB 


DMBORG 
DMBPPRLN 





Workarea 


ia carreras * ee) Interpret the TRACE statement. 





DOS/VS 
Core 
image 
Library 












Workarea ScD 





| 
= 


Extended Description Routine Label 





1. Thé number of buffers/subpools NXTPORT 
specified in the HDBFR statement HDBFR 
is set inthe SBIF. Write message 
DLZ0191 if the number is greater 
than 32 or less than 2. Default is 2. 


The SUBPOOLN is incremented 1 
for every HDBFR statement. Each 
DMB is assigned by placing the 
relative subpool number (SUBPOOLN) 
it is being assigned to into a byte of 
the DMB SUBP DIR which corre- 
sponds to that DMB. The length in 
bytes of the DMB SUBP DIR equals 
the total number of DMBs. Write 
message DLZ008I if this DMB has 
already been assigned a subpool. 


CNTHDMB is a count of all the data 
bases assigned by the user in the 
HDBFR statements. 
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LOAD Macro (Directory Entry) 


a > 4. interpret the ASLOG statement. 


> 5. Interpret the LOG statement. 





OUTPUT 


SUBPOOLN | | CNTHDMB 












SBIF 
DMB SUBBFND 
Subpool 

Directory ISUBBFHD | 


[| 








ACB 


ACBBUFND 
ACBBUFNI 






SCD 


SCDTRCNM J} TRACSAV 





scD 


SCDDBLOP 


x i 


To Figure 
2-3.8 








Step 2 


DLZRRCOO 


Extended Descri 


tion 





Routine Label 


Write message DLZ008I if a DMB 
name is invalid. 


. The user specified VSAM buffer 
allocations are set in the ACB for 
HISAM and INDEX DBDs. 


Write message DLZOO8I for an 
invalid DMB reference. Write 
message DLZO191 if valid values 
were not specified. 


. Write message DLZ012I if module 
is not found. 


. Write message DLZO15I if there 
is a syntax error. 


. Write message DLZ078I if UPSI 
card said no log. 


Write message DLZO07SI if invalid 
parameters. 





Figure 2-4. Batch Nucleus (Overview) 
INPUT 


DLZIWAIT 
Macro Call 


DL/t 
Facility 
Modules 


3. The DLZIWAIT macro is used by 
DLZRDBHOO, DLZDBHO?2 and 
DLZRDBLO. 


. After the DLZBNUCO module is 
loaded, SCDDBLNT contains the 
entry point of this routine. 


If, however, batch initialization 
(DLZRRCOO) determines that the 
DB logger is required, the entry 
point of the log initialization 
routine in DLZRDBLO is stored in 


SCDDBLNT. The log initialization 
routine changes SCDDBLNT once 
more to point to the log writer 
entry point. 


With this routine, the DL/I 
facility modules need not know 
if logging is required or not. 





PROCESS 


1. Batch Program Request Handler 
(See Figure 2-4.1) 


2. Partition ABEND Routine Entry 
(See Figure 2-4.2) 


3. DL/I Batch Wait Routine 


(ep SVC 7 


4. Branch instruction used if 
no logging. 


DLZIWAIT |DLZIWAIT 


DLZBR14 |DLZBR14 


OUTPUT 
Return To 
Caller 
Return To 
Caller 
DLZBNUCO 





_ 
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Figure 2-4.1. Batch Program Request Handler | Be 5S 
-PROCESS & _ _ fF OUTPUT ® 


INPUT 


PPST | ! 
PPSTCA +———-—# 


SCDEXT User 


SCDEREEN Parameter 
List 





SCDLOWER stad | 
arameter 
SCDUPPER List 





SCD 


SCDDLTCT /#J—- — — — & 


PST 








PST SCD 


PSTABIND SCDABEND 


PSTERCOD 





SCDCSECT - Batch Nucleus CSECT 


Extended Description 
































13 to the user save area. 


check occurs in PL/I code. 





tion. 






2 


Note: This routine receives control from 
the language interface module (DLZLIO00) 
linked with. the application program. 


1. When control is passed to the program 
request handler, register 1 must point 
to the user parameter list and register 


During the first entry to DLZPRHBO, 
the PL/I STXIT routine and savearea 
addresses from the PC option table are 
saved if the application program is 
written in PL/I. DLZPRHBO also 
sets/resets a switch (SCDLIPLI flag in 
SCD) on exit/entry to indicate whether 
current execution is in DL/I code or 
PL/I code. This is done to enable high 
level language debugging for PL/I to 
give diagnostic information if a program 


Reset PC exits if this is a PL/I applica- 


. Write message DLZ2601 if invalid list | 


See Note 








. Establish SCD and PST addressability. 


. Determine if this is an utility block build 
. Verify call list and store in PST. 


. Pass control to call analyzer to validate and 


. If no errors are detected upon return from 


PST 


PSTPCT2. ‘| 


call. If it is, go to Figure 2-3.5. If it is not, 
continue at Step 3. : : 





Uv 


ST 


PSTLIPRM 


R13 


perform DL/I function. PSTSV1 


DLZDLAOO =| : 


Validate DL/I 


function 


BALR 


— 





User 
1/0 Area 





DLZDLAOO, move data to specified area. 





u 








Return to 
Application. 
Program 
. If an error has occurred upon return from . | 
DLZDLAOO: 3 | | 
DLZRRCOO | : 
Error Message / : ; 
Writer : 
2-3.1 
DLZABEND 
Abnormal | 
Termination 
2-4.2 
“DLZBNUCO 
- Routine Label 





DLZPRHBO | DLZPRHBO 


count. Write message DLZ2611 if 
invalid parameter address. Then exit to 
DLZABEND. | 





MOVLUPBP 


. Write message DLZ105] if a checkpoint 
was taken. 


. If a DL/I routine determined that DL/I PRHABEND 
should be terminated, go to the | | 
common error message routine to write | 
an error message using the message 


number stored in PSTERCOD by the 
DL/I routine. —_ 


fi 





BYPLSTXT 





CNTLUP 
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Figure 2-4.2. Partition ABEND Routine Entry (Part 1 of 2) 
INPUT PROCESS 








From Caller 
(See Note) 





» 
SCDDBLOP 


base log if required. 
SCDDBLFW 





SCDDBLCL 





SCDSIND2 





ABIND = 












POTFNCTN 
PSTRTCDE 
PSTOFFST 
PSTBLKNM 
PSTBYTNM 
PSTDATA 


DMBACBRP 


PSTDSGA 


RPL 





SCDCSECT — Batch Nucleus CSECT 


Extended Description Routine Label 








Note: The ABEND routine is invoked 
by the DOS/VS supervisor if (1) there 
is a program check or other ABEND 
situation found by DOS/VS, (2) if 

the job is being abnormally ended by 
a DL/I routine that determines DL/I 
should be abnormally ended, or (3) 
specifically by the buffer handler 
when there is an error concerning 


buffers. 


1, If there is a program check, DLZABEND | DLZABEND|DLZABEND§# 


checks the switch (SCDLIPLI flag in 
SCD) set by DLZPRHBO to determine if 
program check occurred in PL/I code. 

If error occurred while in PL/I code 
(SCDLIPLI= 1), a return address is 
modified and a branch is made to PL/I 
STXIT PC routine. (The address of the 
PL/I STXIT PC routine was saved during 


1. Establish SCD address. 


” 2. Force write and close data 


= 


BALR 


cg 


BALR 








> 3. Close workfile if required. . 


P A. Bypass unloading the buffers if 
there was an error with the 
buffer handler; skip to Step 9. 


5. Issue message DLZ0011. . 
| BALR 


= 
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OUTPUT 


LOGOUT 


DLZRDBLO 


Force Write 


Entry Point 


DLZRDBLO 


Close Routine 
Entry Point 





sCcD 


SCDSIND2 


CLOSE Macro 


**DL/| ABEND 
SAVE AREA** 


DLZRRCOO 


Error Message 
Writer 2-3.1 












— — p 6. Bypass unloading the buffers if 
: ~  MSAM is active; skip to Step 9. 


* DLZBNUCO 


Routine a Label 


tion 


Extended Descri 











the first entry to DLZPRHBO - see 
Figure 2-4.4, Step 1.) After PL/I 

completes diagnostic information, 

processing returns to the modified 
address in DLZABEND. 


. If the HD reorganization reload module 
(DLZURGLO) is running for either a 
standard reload or a reload restart, close 


ABLOGCBP 


the workfile generator file if it is open. 


RELODCBP 
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Figure 2-4.2. Partition ABEND Routine Entry (Part 2 of 2) : | oa a8 | 
INPUT RSE PROCESS OUTPUT 


SCD crmmmmemetn 6 CERES, ~ H 
SCDDLICT 7. Issue UNLD call. , PST 


BALR PSTLIPRM 


DLZDLAOO 
DL/!I Analyzer 


Module 





8. Issue message DLZ002I. 


DLZRRCOO 


Error Message 
Writer 2-3.1 


BALR 






J 


SCDSIND 


ScD 
ATLDL 
DLZFSDPO ... 


<a 9. Load and execute the formatted 
system dump program if required. 


Se] GETVIS Macro 


LOAD MACRO 


DLZFSDPO 


Formatted 
System Dump 
Program 


ex DLZTRCAL 
TYPE=STOP Macro 


JDUMP Macro 


R4 
PSTERCOD | A 


SYSLST 















DOS/VSs 
Core image Library 





To DOS/VS 





SCDCSECT — Batch Nucleus CSECT : DLZBNUCO 


Extended Descri Routine 






tion Routine Label 


7. 


9. The GETVIS macro is used to ABBYMSG 
acquire storage for DLZFSDPO. 7 
If there is not enough storage 
available to DLZFSDPO, only 
JDUMP output is put to SYSLST. 
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Figure 2-5. Online Initialization (Overview) 





INPUT From PROCESS OUTPUT 
CICS/VS 
Overlay 
Supervisor 
1. Online initialization start. CICS/VS 
(See Figure 2-5.1) Partition 
2. PSB processing. 
(See Figure 2-5.2) DLZOL100vrnp 
3. DMB processing. 
(See Figure 2-5.3) DLZOL100vrnp is the module 
identifier where ‘v’ is the version, 
ee Ts . ‘r’ is the release, ‘n’ isan additiona 
4. Control program initialization. identification digit, and ‘p’ is the 
(See Figure 2-5.4) latest PTF number that has been 
applied. 
5. DMB open processing and online 
initialization completion. 
(See Figure 2-5.5) 
To 
CICS/VS 
Overlay 
Supervisor 
-DLZOLIOO 
Extended Description Routine Label Routine Label 





DLZOLIO0 

PSBLOADL 

DDIRINIT 

DLZCPIOO | 
DMBOPENA 
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Figure 2-5.1. Online Initialization Start 


INPUT oe PROCESS = OUTPUT 
Figure 2-5 


Step 1 











[acsavan J 


INITSZSV 
Ri1 INITUPSV 


CSA 


CSAOPFLA 


CSAOPFL 


CSADLI 










SIP 





1. Establish addressability to 
CICS/VS control blocks and SCD. 





R13 NUCAD 


CSA 


SIP 


ENDSAVE 
DOS/VS 
LNGTHSAV COMREG 


SCD ———"> 2. Initialize online nucleus. 


SCDPRHED 
SCDLSTAD 





fom) 


CSA PPT 

CSAPPTBA PPTPI 
——— 3. Initialize ACT. 

ScD 


ACT 


SCDACTRA ACTNM 
ACTPCNT 





SIP PST ——— 9? 4. Build temporary PST ; 
used during initialization. 


PPST 


PPSTLEN BALR 


—_ 





DLZOLI00 — Online Initialization CSECT 


Extended Description Routine Label 








_ 1. Module ident 
defined here. 


Upon entry from the CICS/VS Overlay 
Supervisor, SIPBAR2 contains the 

overlay entry point, and SIPBAR1 
contains the SIP common communications 
area. The current storage allocation infor- 
mation is saved in order to release storage 
if DL/I initialization fails. 

The DL/I systems contents directory is 
located from the CSADLI field in the CSA 
optional features list (CSAOPFL). 


Write message DLZ031] if program isola- 
tion is being used and either CICS/VS 
journalling is not being used or program 
name DFHDBP (dynamic transaction 
backout) is not in the PPT. 


Write message DLZOSOI if the nucleus is 
not found. 


Write message DLZ0641 if the nucleus is 
an invalid version. 


2. CSADLI is modified to point to the DL/I 
interface module address list, (DFHDLIAL 
DSECT), which is a table of entry points 
for the task initiation module and the task 
and system termination routines. 


DLZOLI00 |DLZOLI00 
























ifier (DLZOLI00vrnp) is _ 








NUCFOUND§ 
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CICS/VS 
GETMAIN Routine 


DLZ 


MVCOM Macro 









ACT 


ACTIND PPTTLR 


ScD CSAOPFL 


J | SCDDATE CSADLI 
SCDIWAIT 


ws |LSCDERRMS] Aogiys 
1} scocsaBA | COMREG 
1] scosino | 
| | SCDCWRK | 





PPT 


PST 


PPSTECB PSTPREAD 


and PPST 


SIPCORE 






To 
‘Figure 2-5 
Step 2 





rT] PPSTCA PSTSCDAD 
‘TT PPSTID PSTSV1 





DLZOLIOO 


Extended Description 


SCDSIND is initialized with bits 6 and 7 of 
the UPSI switch from the COMREG. The 
program request handler entry point is 
moved to byte 16 of the COMREG and 
temporary entry points are established for 
the error message routine and the DL/I wait 
routine. Also, SCDCWRK is initialized at 
this time to point to the beginning of the 
low end of free storage. 

. Indicators are set in the CICS/VS PPT mark- 
ing the program éligible for DL/I services. 
They are set in the DL/I ACT entry indica- 
ting the program was located in the PPT. 


Write message DLZ034I for each ACT pro- 


gram not in the PPT. Write message 
DLZOS11 if any ACT program is not in the 
PPT. 


. The PST and PPST are built directly after 
the initialization overlay high storage ad- 
dress, The save areas are chained and 
SCDCWRK is updated to indicate the new 
upward core allocation starting address. A 
dummy task ID of ‘01’ is set in the PPST. 


Since a DL/I task with its associated PST is 


not yet involved, a temporary PST is needed 


to provide work space and save areas during 
the execution of this module. 


Routine 





Figure 2-5.2. PSB Processing 


INPUT PROCESS 
From 

Figure 2-5 

Step 2 


SCD 


'SCDDLIPS 


PDIRSYM 


PDIROPTC |: 1. Load PSBs. 


PSB 


[| ___ > 2. Initialize PDIR.. 








PSB ; 
PSBLIST 
















SDB 
SDBLEVEL 
SDBORGN 


JCB | 
JCBSDB1 SDBF3 
JCBSDBNG {| [SDBDSGA 
DSG PCB 


DSGDMBNO| [DBPCBJCB 


(ement) 


BALR 


3. Check PCBs sensitivity. 


OUTPUT 


ws 


Module Load 
Routine 









PDIR 


PDIRADDR |f 
PDIRPSBL_ || 


PDIRZWA 







SCD PDIR 


SCDSIND PDIRCODE J 


» PSIL 


PSILNTNT 














PCB | PCB 
DBPCBJCB | PCBLST PDIR DsG 
DSG esti. ——_ a > 4. Move the PSIL and create the PDIRSILA |] 
segment intent list mask. EDIBSIED BSSDMENe 
DSGDMBNO PSILLNGH Boi 
oc) GETCORE PSILLNGH 
DSGDSGLN BALR Storage Acquisition 
~ Routine 
267 
DLZOLI00 — Online Initialization CSECT To DLZOLIOO 
' Figure 2-5 
- Step 3 
Extended Description Routine Label tion Routine Label 





1. The PDIR address is located in the SCD | 
and each local PSB is loaded temporarily, 
directly behind the dummy PST. The 
PSIL entries that indicate the DMBs 
which may be used by this PSB are 
loaded along with the PSB. They are 
appended in front of the PSB. If PSB 
initialization is successful, it will be 

~ moved up prior to completion of 
initialization. — 
Write message DLZ044I if the PSB is 
not found. 


. Write message DLZ0711 if the PSB is 
not version/modification 1.1 or later. 


. All the SDBs for each PCB in a 
PSBLIST are tested for correct 
processings options. Indicators are set 
in the corresponding PDIR entry, PSIL 
entry, and the SCD to indicate intent. 
The corresponding SIL entry is found 
by using the offset value found in 
DSGDMBNO. 


Write message DLZ0421I if a PSB 
accesses a HSAM DBD online. 


SBLOADL |PSBLOADL 


PDIRNPCB 









Extended Descri 





Write message DLZ0431 if load 
sensitivity is detected. A PSB contains 

_a PCB with PROCOPT=L which is 
invalid online. 


. The PSILs are moved from the 
temporary position and as they are 
‘moved, the size of each entry is 
increased by the size of PSILSEGD 
to allow for the segment intent bits 
mask copy. For program isolation, 
non-exclusive intent bits are translated | 
to read-only to allow simultaneous 
scheduling of update-sensitive segments. 
All the DSGDMBNOs are adjusted to 
show the new offset. Also, each 
PSILLNGH is adjusted to show each 
new PSIL entry length as each entry 
is moved. | 


PDIRSMUV 


Return is made to Step 1 to repeat 
this routine for PSB until there are 
no more. 
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Figure 2-5.3. DMB Processing (Part 1 of 3) 
INPUT , = PROCESS . , OUTPUT 
@ From 
Figure 2-5 
Step 3 


ScD PDIR 


SCDDLIPS PDIRSILA 

SCDDLIPN | nce o 

— ; 1. Initialize DMB directory. 
SCDDLIDM | pg) ; 


SCDDLIDN PSILDMBN 
PSILNTNT 


PSIL DDIR 


PSILDIRA DDIRCODE |] 





ScD DDIR 


SCDDLIDM DDIRSYM 
SCDDLIDN DDIRCODE 


CSA ; 
FCTDSID —--——P 2. Build a DDIR if the DMB does 





—— -—— 3. Store DMB number in DDIR and 
| er 


P ; DDIR 


PSILDIRN DDIRNUMB 





PSIL 


PSILDIRA 





DDIR 


DDIRNUMB 








FCTDSOPN not have one. ) 
PSIL 
DDIR FCTDSTEL (am) GETCORE 
BALR Storage Acquisition PSILDIRA 
DDIRLEN PSIL Routine 
2-5.7 
| PSILDMBN 
1 PDIR SCD : F 
PDIROPTC SCDDLIPS | 


SCD DDIR DDIR 


scpptiom {lpoirsym PL... > 4. Load and relocate each DMB. DDIRADDA 
SCDDLIDN | . DDIRDMBL 
enee INITLODR . 












BALR Module Load 
Routine 
2-5.6 
DMBLOADR 
BALR Build Associated 
DMB Control Blocks 
2-5.10. 
DLZOLI00 — Online Initialization CSECT DLZOLI00 
-Extended Description Routine Label Extended Description 








1. The PSI£s are scanned for DMB names |DDIRINIT |DDIRINIT 
and a DDIR 1s created for each unique DDIRFOND 
DMB encountered. The address of the 
DDIR réplaces the respective dmbname 
in each PSIL. 


Write message DLZ0481 if the 
_randomizing module is not found. 


Write message DLZ0491 if no valid 
DMBs are found. 


. Write méssage DLZ0451 if no 
CICS/VS FCT. 


Write message DLZ046l if no FCT 
entry existed matching the dbdname. 


. Write message DLZ0491 if no valid 
DMBs are found. 


. Write message DLZ0471 if DMB not 
in library. 


Write message DLZ072I if the DMB 
is not version 1.1 or later. 
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Figure 2-5.3. DMB Processing (Part 2 of 3) 
INPUT 






DDIR | 
DDIRSYM | 
DDIRADDR 


DMB =] 
[omsoac_]| 
HSBFR Entr 
eee el 


DDIR r 
DOIRCODZ | 
DDIRLEN 






aa 









SCD OMB | 
ACBXT 


DMBUSBFR SCDEXT 
DMBACBNM | ISCDEVSEX 






DLZOLI00 — Online Initialization CSECT 


5. Write message DLZ0291 if invalid 
DBDNAME in HSBER statement. 


The number of index buffers and 
KSDS buffers in the HSBFR entry 

is moved to the ACB extension. If 

the organization is HISAM the number 
of ESDS buffers is moved to the 
second ACBXT. These values are 

used in building the VSAM ACBs 

(in Step 7). 7 


. If HISAM, two sets of control blocks 
will be built. 


Information obtained from HSBFR 
statements is used for the GENCB 
BLK=ACB BUFND=parameter and 
BUFNI parameter. If none was 
specified, the default of 3 index 
buffers and 2 data buffers is used. 


PROCESS 


5. Scan HSBFR entries in ACT. 


6. Adjust offsets in DMB to 
addresses for each valid DDIR. 


At end of DDIRs go to Figure 
2-5, Step 4. 


7. Build VSAM RPL, Exit List, and ACBs. 


== GETCORE 


BALR Storage 
Acquisition 
Routine 









GENCB BLK=RPL Macro 


eae GENCB BLK=EXLST Macro 


GENCB BLK=ACB Macro 


DDIRINIT |CHKHSB 


OUTPUT 


ACBXT 


DMBVSBFR 


DMBACBAD [| 
DMBACBRP 





DLZOLIO0 
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Figure 2-5.3. DMB Processing (Part 3 of 3) | ages 7 
INPUT —— PROCESS.. ; OUTPUT 


DMB PSDB 


+ — —- _ 8. Relocate PSDBs and SEC list. 
: ona) 
CPAC 1 | BALR 







-PSDB -CPAC 
MBFDBA_ || DMBCPEP 
DMBSCTAB DMBCPRES 
INITLODR wh | 


Module. Load 
Routine 






2-5.6 











DMB | 
DMBSIZE 






BALR 


PSDB SEC 
| DMBLST DMBSECDB 
areas 9. Process Secondary List if é | DMBXITAD | 
SCD DMBXITAD 
eae : present for each PSDB. 
SCDDLIOM_| |. XMPRM _ | DMBXDSDB 
eee | amd [ wittonr DMBXMXEP |] DMBXPSDB 


DMBXMRES. 


Module Load 
Routine . 
2-5.6 ; 


DIR 7 Return to Step 6. 


XMPRM _ 


-{DMBXMXNM. 
DMBXMRES 





DLZOLIOO — Online Initialization CSECT | DLZOLI00 
Extended Description 


8. The segment compression modules DDIRINIT 
for each PSDB is loaded if present. 


Write message DLZ0731 if the 
compression module is not found. 


. If a secondary list is present, its 
code is tested, and referenced 
DMBs are resolved to DDIR pointers 
and placed in the list. 


If an index user exit routine is 
present it is loaded. 


Write message DLZO131 if the SEC 
makes an invalid DMB reference. 


Write message DLZ266] if there 
is an invalid secondary code. 


Write message DLZ0741 if the 
indexing module is not found. 
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Figure 2-5.4. Control Program Initialization (Part 1 of 3) 


INPUT 


From 


Figure 2-5 


Step 4 


SCcD- 


PDIR 
scobuien || pomapoe |} 
scoouirs }] eoinesee_|]| FP — 
[poirorrc 





PSB 
PSBXIOWK 


PSBNDXWK 
PSBIOAWK 





NUCAD ns 


DLZOLIOO — Online initialization CSECT 


Extended Description 








L 


2. The address of the storage acquired 
is used as the ‘move-to’ address in 
Step 3. 


. Once the PSB is moved, its new 
address is stored in the PDIR and 
the old PSB address becomes the 
new code upper boundary address 
(upward core allocation starting 
address), SCDCWRK. 


. Write message DLZO56I if PSB 
fails to initialize. 


. If there is an SLC name at the 
nucleus address +8, the SLCLOAD 
routine loads the action modules. 


Write message DLZ032A and termi- 
nate DL/I initialization if CICS/VS 
journalling is to be used but there 
is no system log entry (X‘01’) in 
the JCT. 


VV 





DLZCPIO0O |DLZCPIOO: 


Routine . Label 


PROCESS 


. Control program initialization 


entry. 


. Acquire storage for PSB and 


index work area. 


==) 


BALR 


GETCORE 


Storage 

Acquisition 

Routine 
2-5.7 






. Move PSB to permanent location. 


. Initialize PSB. 


PSBRELO 


PSB Initialization 
Routine 


(um) 


BALR 







2-5.11 | 


. Return to Step 2 for each PDIR. 


. Load action modules as SLC 


says if requested. 


qa SLCLOAD 
BALR Storage Layout 


Control Routine 
2-5.8 










Extended Description 








PCCORET | 
PSBMLUP 


PSBNWA4 


DLILOAD: 
NUCLDNJL 





OUTPUT 


PSB 


‘ 
f 


PDIR 


PDIRADDR PSBXIOWK 


‘PSBSEGWK 


PSBNDXWK 


SCD 
SCDCWRK PSBIOAWK 





DLZOLIO0 


Routine : 





. Label 
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Figure 2-5.4. Control Program Initialization (Part 2 of 3) | oe a — 
INPUT 2 PROCESS < & OUTPUT 


| SCD_ 
7. Allocate buffers if required. SCDDBFPL 


BUFALLOC 


PST 


scD 
PSTWRK3 SCDDBFA 


[ 








BALR Buffer Allocation 
Routine 
2-5.9 
NUCLODTB | 
SCDDDBHO | SCDDDBHO 
SCDSIND SCDDLIRE 
| | SCDDLICT 
—-—->? = 8. If the number of DDIR entries does not | || SCDDBLNT 
=’ equal 0, then load Action Modules. SCDDLIDR 





| 


SCDDLIIN _ 
SCDDHDSO- 
SCDDXMTO 
SCDDLICL 


INITLODR 


Module Load 
Routine 
2-5.6 
R13 DEXT 


9. Initialize data base logging | ere 7 
if not suppressed. | 


Logger , 
Initialization 
r 


» 0 


DLZRDBL1 
_ CICS/VS Journal 
Logger Initialization 


If Logging is suppressed go 
to Figure 2-5, Step 5, 


I 





BALR 





Se€D 
SCDDBLNT 


SCDSIND 


SCDEXTBA 













f 





BALR 






I 


BALR 





DLZOL100 — Online Initialization CSECT DLZOLIOO 


Extended Descri tion 





7. If there is not a buffer pool prefix DLZCPIO0O 
address in the SCD indicating the 
buffers have already been allocated 
and the-number of subpools required 
is not zero, go allocate the buffers. 


| . If CICS/VS journaling is supported, 
DLZRDBLO in the NUCLODTB is 
replaced with DLZRDBLI. 


Any module already loaded by 
SLCLOAD will not be reloaded. 


Write message DLZOS5SI if a DL/I 


facility module is not found. 


- SCDDBLNT is loaded with the entry 
point at the proper logger initialization 
routine (DLZRDBLO or DLZRDBL1). 
If logging was suppressed SCDDBLNT 
will continue to point to a branch 14 
for immediate return to caller. 
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Figure 2-5.4. Control Program Initialization (Part 3 of 3) 
INPUT PROCESS OUTPUT 


SCDSIND ~ SCDEXT 


—-—-——p 10. Attach the asynchronous logger 
if the CICS/VS journal logger 


SCDDBLSV | is being used. 





ATTACH Macro 


If error: 









(mm) (oLzAbeL 


BALR Log Close 
Routine 
To 
Figure 2-5 
Step 5 
DLZOLIOO — Online Initialization CSECT ' DLZOLIOO 
Extended Description | Routine Label Extended Description Routine Label 


10. Write message DLZO06I if the DLZCPIOO | NUCLODNX 
asynchronous logger did not 
successfully attach and go 
close the log. 


The address list for the 
asynchronous portion of the 
database logger and its save 
area address are located in 
the database log load module 
just prior to the entry point. 
If the attach fails, the 
database log is closed and 


the system continues without 
log support 
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Figure 2-5.5. DMB Open Processing and Online Initialization Completion =~ hs at te ales 
INPUT, smn | PROCESS suse eS eT OUTPUT 


From 
Figure 2-5 
Step 5 


scD 


SCDDLIDM_| |DDIRCODE SS sd 
SCDDLIDN | |DDIRCOD2 ; 1. Determine if the DMB can be | | 
DDIRLEN 3 opened. : ? DIF 
| _ [DDIRCODE 


SCD 2. Issue OPEN ALL call to DL/I CD PST 
SCDDLICL open/close. neal PSTFNCTN | 
PSTDSGA 





Ri3 


am DLZDLOCO | 
PSTSV1 


BALR DL/! Open/Close 
Module 


3. Scan DDIR for successful DDIR SCD 


completion of open call. BpIRCODE! IscosiND? 






DDIR 


DDIRCODE 
DDIRCOD2 
DDIRVSRT 













INITSW CSA | 

sco 

4. Write message DLZ0531 — SCDLOWER 
SIP DL/I Initialization Complete 
SIPPUT SCDUPPER 

or T 
SIPOSUP a 
. SCDERMMS 
Write message DLZ0541 — DL/I 

FeSRUA Initialization Error Detected. 





Ga) | sieeut 


BALR Console Put 
Routine 





To 


NS ee ie =o CICS/VS 
DLZOLI00 — Online Initialization CSECT : Overlay DLZOLIOO 


Supervisor 


Extended Description Routine 


1, If all PSBs are remote, do not attempt. 
OPEN. 


o: DMBSCNX 


3. Write message DLZ057I if an open DMBSCLP2 
. error occurred attempting to open a 
DMB. 


. 4. During the course of initialization an 
error can also cause a direct return to 
CICS/VS with message DLZ052I - Ini- 
tialization Failed. 
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Figure 2-5.6. Module Load Routine. 











INPUT F PROCESS OUTPUT 
rom 
Caller 
nee “A ir Entry. 
Base Load Directory Entry 
| % 
eee) oe Guise LOAD Macro 
DOS/VS 2. If phase SVA resident go to 
Load Step 5. 
Indicator 
eLoLs. | 3. Acquire storage for requested BLDLVSA 
Padres phase; either A or B: Size of 
pleninage p= sae a Storage Requested 
Library 


Number of A. 
Bytes 
Last Block 





BALR 





SIP 


SCD 
ENDSAVE SCDCWRK 





BLDLVSA 


Entry Point 


4. Load phase. 





GETCORE 


B. Low Address space. 


GED L040 Macro 





Storage Acquisition 
Routine 






CICS/VS 
Partition 


SCD 


SCDCWRK 





DOS/Vs 
COMREG 
+36 
pos/vs 5. Set phase entry point. 
Core image 
Library R1 
To 
: Caller 
DLZOLIOO — Online Initialization CSECT . DLZOLIOO 
Extended Description Routine Label Extended Description Routine Label 








1. Caller passes requested phase name 
in a work field BLDLN. The output 
of the load call is a DOS/VS 
directory entry at BLDLVSA. 


INITLODR |INITLODR 


. Amount of storage is deter- 
mined by: 


Number of Library Block 
x 1024 + Number of Bytes 
in Last Block. 


INITSW indicates whether 
caller wants low address space 
or CICS/VS to acquire the space. 


B. Write message DLZ058I if 
insufficient core to initialize 
DL/I. 
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4. If low address space is requested 
by the caller SCDCWRK is used 
as the load address. After the 
load macro the end address of the 
module will be in the DOS/VS 
COMREG. SCDCWRK is updated 
with this end address to show the 
new low end of free storage. 


. The phase entry point is passed 
back to the caller in register 1. 
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Figure 2-5.7. Storage Acquisition Routine 
INPUT PROCESS 


From 
Caller 


COREADSJ © SIPCOM 
SIPCORE 


ENDSAVE _ 
LNGTHSAV 





Tri SIP 
[J Larecone 


a 
: 
R1 __R7 | 


|_—TKZZZ2 





SCD 
SCDCWRK 


R1 to caller. 





DLZOLIOO — Online Initialization CSECT 


Extended Description : Routine Label 





1. If alignment is desired the number 
| of additional bytes needed to align 
is calculated and put in R7. 


Registér 1 is updated to show the 
new total number of bytes required. 


2. Write message DLZO581 if insuffi- — 
_  Cient storage to initialize DL/I. . 


The SLCOPT flag byte (moved to 
SIPCORE from a storage layout 
control table entry) is used by 
CICS/VS GETMAIN routine. If we 
are doing our own alignment SLCOPT 
is examined to determine whether 
low or high storage was desired by 
the user. 


. The load point returned in RO by 
Step 2 is adjusted by the additional 
bytes in R7 to get the requested 
alignment. This needs to be done 
only if low storage was acquired. 
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1. Align the storage requested to | 
specified alignment desired. | R1 R7 


L IZ 


2. Acquire storage from CICS/VS; 
either low or upper storage. 


CICS/VS SIP 
Storage Routine 





3. Return storage address in 





OUTPUT 


CICS/VS Partition 


either: 


Z 
as 71/0 
SCDCWRK 

R1 


ff To 
Caller 


SIPCORE 





‘DLZOLIOO 


Extended Description Routine Label 






Figure 2-5.8. Storage Layout Control! Routine 
INPUT 


PROCESS , OUTPUT 


From 
Figure 
2-5.4 
Step 6 





1. Build the storage layout control 





P . 
SIPBLDL | NUCAD a 





SIPLDER table. sip 
SILISTID - 
=m 
| BALR 







CICS/VS Build 
Routine 


SIPLDER 


CICS/VS Loader 
Routine 






Li > 2. Load the table. 


I 


BALR 


SLC PST 


3. Determine if the SLC entry is 
for the buffer pool. 


BUFALLOC 


Buffer Allocation 
Routine 


J 







BALR 










2-59 
SLCMODNM ; 
SLCOPT 4. Load each module in the SLC SCDDBLNT 
SLCOFS table and set the entry points Tscppuipr | sip 
in the SCD. 
eeCten | SCDDLIIN |] SIPCORE 
a= INITLODR SCDDHDSO | 
BALR Module Load SCDDXMTO 
Routine : 
2-5.6 SCDDLICL 
SCDQUEFO 
SCDQUEFW 
SCDCPY10 
p a 5. Update the online free storage 
ENDSAVE | | beginning pointer. ScD 
LNGTHSAV SCDCWRK 
Figure 2-5.4 
Step 7 
DLZOLI00 — Ontine Initialization CSECT DLZOLIOO. 


SLCLOAD : | SLCXIT 
. Write message DLZ0301 if the loaded | : 


SLC table does not begin with 
*DLZSLC*. 


The table is loaded directly after 
module: DLZOLIOO. 


. The user would have specified the 
DLZSLC statement with 
MODULE=BUFFER. 


. As each module in the SLC table 
is loaded, the need to load flag is 
turned off so that upon return to 
Figure 2-5.4 these modules will not 
be reloaded. | 


The SLCOPT for each module, as it 
is loaded, is moved to SIPCORE for 
use by the GETCORE routine. 
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Figure 2-5.9. Buffer Allocation Routine (Part 1 of 2) 






INPUT. Beka PROCESS OUTPUT 
Figure 2-5.4 
Step 7 or 
Figure 2-5.8 
Step 3 
» ) a 
| 1. Determine how many subpools 7 7 D 


the user wants. 





| HOBFR = I 


SCD SBIF 
SCDDBFPL. || SUBLEN 
SCDDLIDN 


BFPL 


OTBFR BFPLLEN 









mad 


BALR 


BFPL . | 
BFPLSIUN 
DDIR = 
DDIRSYM | - 


ppIRNUMB | |" 
DDIRCODZ | 


NUCAD 


SCD 


11 SCDDLIOM 
SCDDLIDN 


| SUBPOOLN 


HDBFR Entry 


PST BFPL 


PSTWRK1 BFPLSUBD 
PSTWRK3 BFPLSUIN 


ACBXT 


SCD 
DMBRBASNJ | SCODBFPL 


DMB Subpoo! 
Directory 





‘DLZOLIOO — Online Initialization CSECT 


~ Extended Description 








1. Buffer allocation is done by this BUFALLOC |BUFALLOC 
subroutine. The required number 

is set to the user specified total 

in the DLI parameter if the user 


number is smaller than required. 


Write message DLZ060I followed 
by DLZO61A if buffer pool 
allocation is missing or invalid. 


. Write message DLZ0291 if there 
is an invalid DBDNAME in 
HDBER entry. 
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2. Acquire aligned storage for buffer 
-pool prefix, subpool information 
_ tables, and subpool directory. 


GETCOREA 
~ Storage Acquisition 
Routine _. 


3. Format the buffer pool prefix. 


4. Move information from ACT into 
the buffer pool tables. 


> 5. Store buffer sizes in the 
subpool information tables. 





SCDDBFPL 


COREADJ SIP. 
SIPCORE 






BFPL 


BFPLID 
BFPLROCO 
BFPLSUBD 





SBIF OMB Subpool 


SUBBFND Director 





SBIF PST 


SUBBFSIZ PSTWRK1 
SUBDMBCT PSTWRK3 





DLZOLIOO 
Routine 


5. At this point the size of the subpools 
are determined. They are allocated, 
largest first, until the specified number 
is exhausted. Remaining DMBs 
requiring subpools are assigned evenly 
across all existing subpools. If the 
user specified more subpools than 
necessary, an additional pool of 512 
buffer size is allocated for delete 
workspace. 


SUBTSHFL 


The subpool sizes are sorted so that 
the largest subpool appears first in the 
subpool information table. 


Figure 2-5.9. Buffer Allocation Routine (Part 2 of 2) 


INPUT 


BFPL 


D | 
BFPLSUBD DDIRADDR 
BFPLSUIN 


DMB 


SBIF Subpool 


SUBBFHD Director 
SUBBFSIZ 
SUBDMBCT 










SBIF 


SUBBFNO 


SCD 


V 





SCDDBFPL OPTBFR 










SBIF 
SUBBFNO 


SUBBFSIZ OPTBFR 





a 





R1 


DLZOLIO0 — Online Initialization CSECT 


Extended Description 








6. Assign DMBs by corresponding control |BUFALLOC |GREATPRO 


interval sizes. Each DMB is assigned by 
placing its DDIR position pointer into 
the subpool directory. 


It is possible to get message DLZ262I 
if there is a buffer allocation logic 
error. . | 


. The user specified number of buffers 
is allocated per pool; default is 32. 





PROCESS 


6. Assign DMBs not yet assigned to 
subpools by HDBFR statements. 


7. Format buffer prefixes and 
allocate !/O buffers. 


A. Get aligned core for the 
buffer prefixes. 





BALR 





Routine 









B. Get aligned core for the 
buffers. 





Storage Acquistion 
Routine 





2-5.7 





C. Set buffer addresses in the 
_buffer prefix. 
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GETCOREA 


Storage Acquisition 
2-5.7 


GETCOREA 










OUTPUT 


SBIF ACBXT 


SUBDMBCT DMBRBASN: | 


DMB Subpool 
Directory 


ees 


SBIF S 


IP 
SUBUCPRE SIPCORE 
SUBUCHAI 


[coneans | 
BFPL 
BFPLPRAD 


SIP 
COREADS SIPCORE 














BFFR 
BFFRSW 
BFFRADDR 





Figure 2-5.4 
Step 8 or 
Figure 2-5.8 
Step 4 


DLZOLIOO 
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2-5.10. Build Associated DMB Control Blocks 
INPUT 


From 
Figure 2-5.3 
Step 4 


PROCESS ' OUTPUT 






SCD DMB 


TISCDDLIOM DMBORG 
DMBDALGR |{f 





a 1. Load randomizing module if pug DA 
organization is HDAM. DMBDALGR || pMBDAEP 
DACS 





DMBOANME (==) INITLODR 
BALR Module Load 
Routine 






2-5.6 






DDIR 


DMB | 
BE |{ODIRCODE | |}DMBORG | 7 | | 
[OMBPPRND | aay 2. Determine if buffer pool space ACBXT PST 
ACBXT is required and set indicators. [omBreasn | IPSTWRK1_| 
PSTWRK3 


DMBCINV 





DMBLRECL 
DMBACBLN 








To 
|Figure 2-5.3 
Step 4 





DLZOLIOO — Online Initialization CSECT DLZOLI00 





Extended Description 





1. Before loading the randomizer a 
check is made with all currently loaded 
randomizers. If one with the same 
name as the one we are loading is 
found, the entry point is resolved 
and the actual load is bypassed. 


If the randomizing module is not 
found, the DDIR is updated to 
show DMB initialization failed. 


. If buffer pool space is required, 
the size of each control interval 
rounded to the next multiple of 
£12 is indicated in PSTWRK1 for 


Jater allocation of the buffer pool. 
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wad 


Figure 2-5.11. PSB Initialization Routine (Part 1 of 2) 
INPUT PROCESS 








From 
Figure 2-5.4 
Step 4 


PDIR PSB 


PDIRADDR PSBXPCB aos 


1. Initialize and relocate PSB 
pointers. 


PSBCODE 


PSBLIST 





PCB 
DPCBJCB 


q 


2. Relocate the PCB and JCB 
pointers. 


JCB SDB 


[icesos:__][spesym _}} 
— 
SDBXPANS 


3. Initialize all SDBs belonging 
to a particular JCB. 


PCBEND (80) 


OUTPUT 


PSB 


PSBXPCB 
PSBLIST 


PCB 


DBPCBJCB 











UB 










PSB 


PSBXPCB 


DLZOLIOO — Online Initialization CSECT 





7 4. Test for the end of the PCBs 


in the PSBLIST. 


If not the end, return to Step 1. 


Routine 


DLZOLIOO 


Extended Description Routine 


Extended Description 





4. The pointer to the PSBLIST is 
bumped to the next PCB pointer 
entry and processing returns to 
Step 1 if we are not at the last 
PCB. If the index PCB exists and 
has not been relocated return to 
Step 2. 
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JCB 





Label 
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Figure 2-5.11. PSB Initialization Routine (Part 2 of 2) 
INPUT = PROCESS 


PSB . 


PSBLIST 


PCB 
DBPCBJCB 
B 


PDIRADDR 
PDIRCODE 
PDIROPTC 
PDIRSILA | 
? 5. Connect data bases to PCBs. 


PSIL JC 


PSILDIRA JCBPRLEN 
PSILDIRN . 


DSG 
DSGDMBNO 
DSGDCBNO | 
DSGINDA 


DBXPFDB 
SDBNSDB 

SDBPARA -— 
SDBDSGA 
SDBKEYFD 
SDBXFL 
SDBXPANS 
SDBEND 


SOBXFNB 
SDBXFFSB 


6. Connect SDBs to PSDBs. 


SELL 7. Chain Field Exit Routine (FER) 


if PSB has field level sensitivity. 


DSGDMBNO 


SB 
DMB 
DMBLENTB oo 
PSBFRTA 
FERT 


FERTNAME _I 
FERTPRES 


DLZOLIOO — Online Initialization CSECT 





UT 


Extended Description Routine 








5. For each DSG belonging to a PCB, PSBRELO |PCBROUT 
the offset to the corresponding PSIL 

is found by the offset in DSGDMBNO. 

The DMB number at the corresponding 

DMB to this PSIL is then moved to 

DSGDMBNO. Thus, data bases 

specifically used for this PCB are 


connected. 


. Return to Step 4 to process the 
next PCB in the PSBLIST when 
there are no more SDBs. 
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entries and relocate FSB pointers 


Extended Descri 





OUTPUT 


DSG 


DSGDCBA 
DSGDMBNO 


SDBXP 


SDB 
| SDBDDIR | SDOBXPFDP 


SDBPSDB 
SDBKEYFD 


PDCA 


PDCAFERT 
SB 

FSBIVA 
FSBFERTA 


FERT 
FERTRTEP 











n 



















To 
Figure 2-5.4 
Step 4 









DLZOLIOO 


tion Routine ‘Label 











Figure 2-6. Online Nucleus (Overview) 


INPUT PROCESS OUTPUT 






1. DL/I pre-scheduling and PSB 
scheduling routines. 
(See Figure 2-6.1) 


2. System abnormal and normal 
termination routine. 
_ (See Figure 2-6.2) 


3. Task termination routine. 
(See Figure 2-6.3) 


4. Start-of-task record writer. 
(See Figure 2-6.4) 


5. Sync-point record writer. 
(See Figure 2-6.5) 


6. Online program request handler. 
(See Figure 2-6.6) 


7. Remote scheduling call interface. 
(See Figure 2-6.15) 


8. Remote data base call interface. 
(See Figure 2-6.16) 


9. Remote term call interface. 
(See Figure 2-6.17) 


10. Online error message routine. 
(See Figure 2-6.7) 


11. Online wait routine. 
(See Figure 2-6.8) 





12. VSAM asynchronous error processor. 
(See Figure 2-6.9) . 


DLZOOP 


Extended Description oo a Routine Label — Extended Description . Routine Label | 





Lec, x; DLZODPOO 


DLZODPO03 
DLZODP02 


DLZODPO1 
DLZODP04 
DLZODPOS 
DLZPRHOO 
DLZISCOO 
DLZISCO! 
DLZISCO2 
DLZERMSG 


DLZOWAIT 


DLZOVSEX 
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Figure 2-6.1. DL/I Pre-scheduling and PSB Scheduling Routines (Part 1 of 7) 


































INPUT PROCESS OUTPUT 
From 
CICS/VS 
DFHPCP 
DL/I Pre-scheduling Routine 
SCDMXTSK 1. 
SCDCMXT : | 
SEDACTBA == ; A. Locate task’s application 
control table entry, 
ACTNM 
ACTPCNT 
ACTBLEN 
From Figure To 
tains | CICS/VS 
or Figure 
2-6.12 Step Pere 
8 | | 
PSB Scheduling Routine 
TCA = B. If this is a system schedule 
TCADLIt call. go to Step 7. 
SCD Py eA e . . 
SCDCMXT 2. Suspend the task if at maximum ScD 
SCDATSKC sie SCDADSKC 
SCDSIND Ba) TASKSUSP | _ [SCDSIND 
Suspend Task SCDTSKCT y 
2-6.14 / 
\ 
Sy ob —— 3. Scan the PSILs to determine if 
‘PDIRSILA PSILDIRA ; ae 
eSNG any referenced DB is stopped. TCA System 
SrEEnt | TCAFCTR | TCA 
DDIF TCADLTR | {| TCADLI! 
_DDIRCODE 
DLZODP — Prescheduling and Scheduling CSECT DLZODP 
tion Routine 





Extended Description Routine Label Extended Descrip 

















1. B. TCADLPAS indicates a system 
schedule call (PCB,SYSTEMDL). 


DLZODP 
DLZODPO0O 


1. A. Nucleus identifier DLZODP 

— (*DLZNUCXX*0140) and | 
module identifier (DLZODPvrnp) 
are defined here. The level format 

 is-vrnp; where ‘v’ is the version, 
‘r’ is the release, ‘n’ is an addi- 
tional identification number, and 
‘p’ is the latest PTF number that 
has been applied. | 













3. Indicate a scheduling error and 
- return to caller if the DB is stopped. 



















. There is a trace table area within this 
module. Each entry is 2 bytes in . 
length and the last entry is the newest. 











The PPST number of the acquired 
PPST is put in the trace table at this 
time along with an ‘S’ to indicate a 
scheduling entry. 





This step checks the authoriza- 
tion of the CICS application 
program to use DL/I. If the 
program name is not located in 
the ACT an error indicator is 
_ turned. on in the TCA 
(TCADLISE). If the ACT 
search is successful the ACT 
entry address is placed inthe __ 
system TCA and DL/I scheduling 
initiated indicator (TCADLISD 
is turned on. 















If trace is enabled an initial 

scheduling trace entry with the | 

ID=X‘F8’, type of request=X‘DO’ , 

is made showing the current and 

absolute maximum task counters 
and the PPT address. 
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Figure 2-6.1. DL/I Pre-scheduling and PSB Scheduling Routines (Part 2 of 7) 


INPUT 


oe ke ee 


PPST SC 


D 
PPSTCF SCDPPSTS 
SCDPPFF 


WS 


TCA SCD 
TCATCDP SCDPPAF a 
PPST SCDPPSTS 

PPSTCB 





PPSTTSKP 





R11 


Parameter —— 
List 


ve 


PDIR 
PDIRCODE System TCA 


PPT 
fr yen 
RPST 

| 


RIB 


RIBLEN 


ve, 


System TCA 


TCADLII ____ 


PDIR 


PDIROPTC 





DLZODP — Pre-scheduling and Scheduling CSECT 


Extended Description 


. Set bits in PPST (PPSTMPS and 
PPSTMSDL) to indicate task is 
an MPS job. 


The parameter list was initialized 
by GETPSBN before calling this 
resource scheduling routine. 


. If PSB to be scheduled is on a remote 
system, acquire storage for RPST and 
RIB also. 


. TCADLPAS indicates a system 
schedule call (PCB,SYSTEMDL). 


PDIRREM indicates PSB is remote. 





Routine 


PROCESS 


4. Acquire free PST prefix and 
update free PPST chain pointers. 


5. Set PPST in active chain 
according to task dispatching 


priority. 


6. Indicate this is a MPS 
scheduling call if the function 
call is PCBM. 


7. Acquire and initialize task 


PST storage. 


== DFHSC TYPE=GETMAIN 


8. Return if this is a system 


schedule call. 


Set up remote scheduling call 
if PSB on remote system.. 


DLZ!SCOO 


Remote 
Scheduling 
Interface 

2-6.1 







Extended Description 





TASKPSTG 


TASKPSTL fF 
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OUTPUT 


B TRACETAB 
SCDPPFF 
PPST 


PPSTCB 


PPST SCD 
















PPSTECB 
PPSTIND 
PPSTTCA 
PPSTPDIR 


System pPst 


TCA | 


PPSTCA 
TCADLII 


PCADLIPA {| PST 
PSTPREAD |] 


TCA. PSTSCDAD [I 
TCASCNB PSTPSB __ 
PSTPCBGM 


RPST lpstsv1__| 
PsTsv6 __ 


PSTSV7 





To 
Figure 2-6.11 
Step 1 


DLZODP 


Routine Label 





2-45 





Figure 2-6.1. DL/I Pre-scheduling and PSB Scheduling Routines (Part 3 of 7) 


INPUT PROCESS : OUTPUT m 
PDIR = 
—-—-- 9. Determine if the PSB is in scheduling : 
| conflict with itself. Go to Step 31. SCHDPDIR 
PDIR _ DDIR 
| 
sau | ——-P 10. Determine if one of the PSBs 
| DMBs is held exclusively by 
another PSB. Go to Step 29. 





SCD 

| 

PPSTIND ——— 11. Check intent against all tasks 
suspended due to intent conflicts. 


SCHDCKNT 


SCDSIND PPSTPDIR 


PPSTTSKP. ; ( ; 












BALR Intent Check 
Routine 
PDIR scD : 
“LEDIROPTC | [SCDDLIPS —a——— PP 12. Check intent against all SCHDPDIR 






PDIRLEN SCDDLIPN 






scheduled tasks. 
| Address — 


Gu ‘SCHDCKNT 





Intent Check 
DLZODP — Pre-scheduling and Scheduling CSECT | — : DLZODP 
Extended Description ee - Routine Label Extended Description Routine Label 








9. If PSB is in use and is update 
sensitive or exclusive intent, go 
_ to Step 32 and wait for this task. 
_If program isolation is active skip 
checks for update sensitivity conflicts. 


. If any referenced DB is stopped, 
return a scheduling error to caller. 


. Determine if one of the PSBs segments 
is being updated by another PSB that 
is waiting for intent and is at the same 
or higher task dispatching priority. 


The PDIR address of the task being 
checked is passed to the intent 
check routine at SCHDPDIR. 
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Figure 2-6.1. DL/I Pre-scheduling and PSB Scheduling Routines (Part 4 of 7) 
INPUT PROCESS aa OUTPUT 


XN 


1 —— > 13. Schedule the PSB. 


SCDNTWC 


PSIL 
PSILDIRA 
PSILNTNT 


DDIRCNT 





DDIRCOD2 PDIROPTC 
DDIRPPST 


PPST 


PPSTIND 


PDIR ana: nae «nD ba 


~ 14. If not read only intent or update 
intent with program isolation 
active, go to Step 21. 





TCA 


POIRADDR ———~ ¥ 15. Acquire storage for duplicate 
PDIRPSBL PDIR, PSB, and work areas. 


PDIRZWA. _ 
PDIRLEN — =a DFHSC TYPE=GETMAIN 


[> 16. Move PDIR, PSB, and allocate 


TCA 


TCASCNB 


Qu 





PST -TPDIR 


PSTPSB 
PSB 


PDIR PSB 





PSB 


—-—-—p 17. Relocate PCB pointer in the 
PSBLIST. | 


PSB. 
PSBLIST 


PCB 


=] JCB 
DBPCBJCB-P | JCBLEVTB ; 


—-——-—#> 18. Relocate PCB and JCB, and | LEVTAB PC 


B 
clear LEVTAB. LEVTTR . [DBPCBJCB 
JCBSDB1 cere 

JCBSDBND 





JCB 


JCBLEVTB 


JCBLEVND 


JCBSDB1 


JCBSDBND 
JCBLEV1C 





DLZODP — Pre-scheduling and Scheduling CSECT 7. DLZODP 


Extended Description Routine Label Extended Description Routine Label 





13. The waiting-for-intent bit (PPSTSI) DLZODP |SCHDESCD 
is turned off it it is on and the wait 
count is decremented (SCDNTWC). 
Turn on DDIREXCL if the PSB 
requires DB exclusive control. 


Turn on the PSB scheduled flag 
(PDIRSCHD). 


_ If the PSB scheduled flag (PDIRSCHD) 
is already on, it must be read only. 


. Task suspend is possible because 
of unconditional CICS/VS GETMAIN. 
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Figure 2-6.1. DL/I Pre-scheduling and PSB Scheduling Routines (Part 5 of 7) : 7 - 
INPUT PROCESS <n OUTPUT 












JCBSDBND SDBDSGA SDBPARA 


SOBTFLG ee "I —«'19. Relocate SDBs. SDBDSGA 
-TspBTARG 


SDBXPANS 


JCB §DB 


JCNSDB1 SDBPARA DBNSDB 


SDBTARG 
SDBKEYFD 
SDBXPANS 


20. Return to Step 17 for each PCB 
until there are no more. 





PST PDIR 


PSTPREAD PDIRADDR 


TCA 


PSB 
PSBPST TCADLPCB [| 


PSB PCB 
r i SDB PCB 
fete ————*> 21. Connect user's PSB with the | 
data base (DMB). : 


PSDB 


DMBESDB 


JCB_ 
| soBPsDB_| 






PSDB 22. Indicate task scheduling PPST System 
complete. TCA 





DMBFSDB 


SCD - PDIR » 23. Bypass data base log write if 
[scopstor | | the data base log is not open 
[scopstor |{ poircoe | ata bas 
| or this task isnot update or 
: with exclusive intent. Go to é 





Step 27. 
SCD 
_ > 24. Write open log record if CICS/VS | 
| journaling is active and this is TCA 
| the first time logger is called. | > 


(uum DFHKC TYPE=WAIT Macro 


BALR 

scDEsecB | | 

. | (emp DLZRDBL1 

. Open-Log 


Record Write 


SCDEXT 





DLZODP ~Pre-scheduling and Scheduling CSECT DLZODP 


Extended Description Routine Label Extended Description Routine Label 








19, ae DLZODP |SCHDSDBL | 23. The scheduling record is only created for: 


tasks with update intent. 
20. SCHDSDBN 7 
24, TSKLGN1 
21. Each PCB is scanned and the SDBs TASKPSBI 3 . 
(sensitive segment types for each 

PCB) are placed in the SDB chain 

of the appropriate PSDB. DUBFSDB 

poifits to the SDB of the first PCB 

sensitive to this PSDB and SDBNSDB 

points to a SDB within the next PCB 

sensitive to the same PSDB. 


Move maximum key length for use by 
intersystem communication (ISC) 
transformer in calculating size of local 
copy of PCB. | 


. Turn on scheduled indicator (PPSTA) TASKSCOM 
and turn off scheduling initiated 
(TCADLITC). 
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Figure 2-6.1. DL/I Pre-scheduling and PSB Scheduling Routines (Part 6 of 7) 


INPUT 


PPST SCD 
PPSTID SCDREENT 


PDIRSYM System 


TCA 


TCAKCTTA 


PDIR 


SCDEXT 


SCDESECB 





PPST ScD 


PPSTID SCDNAVID 


SCDEXT 


SCDEIDNX 





DDIR 
DDIRPPST ae eee 
DLZODP — Pre-scheduling and Scheduling CSECT 


Extended Description 





pay 


27. The hashed ID is used by space 
management to prevent freed space 
from being reused before the task 
terminates. 


. PSB is being used exclusively. 


PPST address of holding task 
is in DDIR. 


Routine 














PROCESS OUTPUT 
25. Write CICS/VS start-of-task 
record. 
[= 
Write Start-of-Task 
BALR Record 
2-6.4 
Data Base 
LOGREC 
LLBB 
26. Log task scheduled. X'08’ 
== PSBNAME 
DFHKC TYPE=WAIT 
PSTID 
BALR 


Log Write Routine 
2-16 

or 

DLRDBL1 


Log Write Routine 
2-17 


27. Set hashed ID in the PST and 
update ID use chain. 






PST SCD 


PSTTSKID SCDNAVID 





28. Return. 


To 
Figure 2-6.12 
Step 8 


29. Get PPST of exclusive holder. 
30. Go to Step 32. 


DLZODP 


Routine 








TASKEXIT 


TASKEXTF 
SCHDWTC 
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Figure 2-6.1. DL/I Pre-scheduling and PSB Scheduling Routines (Part 7 of 7) : | & ah 
INPUT PROCESS , ‘OUTPUT 


SCHDPDIR PST 


PDIA —_——~ 31. Get PPST of holding task. = 


PDIRADOR 





— 3 TT FY 332. if scheduling conflict is not | 
with a multiple partition support 
task, to Step 35. eh 
7 TCA 
33. Indicate DB not open and. System 
scheduling error. | Lids 


TCADLTR TCADLI! 


ScD 
34. Return to Step 28. _ 
ISCONTWC_| 





35. Indicate task suspended due to 
intent conflict. 







PPST 


PPSTIND =| 


SCD 
SCDSIND 
SCDNTWC 


PPST 


PPSTECB 





36. Suspend the task. 


(a= DFHKC TYPE=SUSPEND 


PPST 8 
PPSTECB a —— 2 
[pestecs__}- | 37. When task resumed, return to 
| | _ Step 9. . 
DLZODP — Pre-scheduling and Scheduling CSECT DLZODP 
Extended Description.. .._ : Routine . . Label _-Extended Description —.. Routine _ Label 






DLZODP 








31. PSB is being used with update 
intent. . 





. Skip suspension of task if scheduling 
conflict is with a MPS task (because 
this situation could result in a long 
delay). 











. If the holder is an MPS scheduled 
task, a data base not open error 
X‘0C’ is set in TCAFCTR and MPS 

conflict reason code is set in 

TCADLTR. Scheduling error indicator 

TCADLISE is turned on. 













. Flag PPSTSI is turned on in PPST 
and the wait counter is incremented. 
The waiting indicator SCDTWFI is 

turned on. 


a 
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Figure 2-6.2. System Abnormal and Normal Termination (Part 1 of 3) 


INPUT cics/vs_ gt PROCESS 


DFHSRP 







1. Enter for abnormal system 


termination. 
CICS/VS 
DFHSTP 


2. Enter for normal termination. 
Go to Step 10 if this is the 
second time entering. 





SCD 


SCDDLIPS 
SCDPPFF 
SCDSIND 











AREY ey Acquire a dummy PST (for 


register save areas) to close 
the data base log. Go to Step 
6 if log not active or if 
journaling is active. 


Gam DFHSC TYPE=GETMAIN 


SCD 


SCDDBLFW ——n ome 


4. Force write of log buffers. 


DLZRDBLO 


Log Force 
Write 





SCD 


SCDDBLCL — 2 
SCDDBLSV. 


5. Close data base log. 


‘| DLZRDBLO 
Log Close 
Routine 


ax) DETACH Macro 





BALR 






DLZODPO2 — System Abnormal and Normal! Termination CSECT 


Extended Description Routine Label Extended Description 













1. Entry is made from CICS/VS System |DLZODP03 |DLZODP03 
Recovery Program on abnormal 


termination. 






Return is back to DFHSRP. 










DLZODPO2 





. Routine identifier (DLZODPO2vinp) §|DLZODP02 
is defined here. For normal termina- 


tion DFHST?P enters this routine twice. 










. Issue message DLZ0671 if there is 
insufficient storage to terminate 
DL/I. 
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| Lestsv7 


OUTPUT 


ABSWITCH 


CICS/VS 
Partition 


DLZODPO2vrnp 















~-DLZODP 


Routine 


Label 
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Figure 2-6.2. System Abnormal and Normal Termination (Part 2 of 3) 
INPUT PROCESS 


ScD SCOM 


SCDDBMPS IJBNPART 


~ 
ie, Gui, Gumend 


6. Notify MPS batch programs of 
termination and delete XECBs. 


DLZXCBn0 


_DLZXCBn1 


| | 


XECBTAB TYPE=DELETE 
XECB=DLZXCBn0O 


XECBTAB TYPE=DELETE 
XECB=DLZXCBn2 


XECBTAB TYPE=CHECK 
' XECB=DLZXCBn1 


XPOST XECB=DLZXCBn1 


Itt] 


7. Return to CICS/VS if normal 
termination. 


~~ 


8. If abnormal termination, issue 
message DLZ070! — Abnormal 
Termination Complete. 


TCA 


TCAPCLA 


9. Write formatted dump. 









DLZFSDPO 


Gama) DFHPC TYPE=LOAD 
Formatted System 
Dump Program 





DLZODPO2 — System Abnormal and Normal Termination CSECT 


Extended Description Routine 





6. MPS batch programs may be active or 
waiting for online MPS processing and 
are therefore notified if CICS/VS 
terminates. Online XECBs defined for 
MPS are alsa deleted. The indicator 
SCDXECB at SCDDBMPS is on if any 
XECBS are defined by module 
DLZMPCO00 


DLZODP02 |STPEXLOG 


The Start Partition XECBs 
(DLZXCBn0 — where n is equal to the 
partition ID) for each partition are 


deleted first. Then the BPC XECBs 
(DLZXCBn2) for each partition are 
deleted. Finally, locate each MPS 
Batch XECB (DLZXCBn1) and 
XPOST them. 


2-52 Licensed Material - Property of IBM 








‘OUTPUT = 


xc 


STPRENTR 
‘FO’ 


CICS/VS 
DFHSTP 


TCAPCP! \, 


CICS/VS 
DFHSRP 


DLZODP 


Ro 


Figure 2-6.2. System Abnormal and Normal Termination (Part 3 of 3) 
INPUT PROCESS 


SCD ——Fr —-—7F# $10. Write message DLZ063! — DL/I 
| Normal Termination Entered. 


SCDSIND2 


_ 11. Acquire a dummy PST (for 


ISaBO TIES. register save areas) to close 
SCODLIES the data bases. 
SCDPPFF 


ox DFHSC TYPE=GETMAIN 


SCD 12. Close all data bases. 


SCDDLICL 





DLZDLOCO 


13. Write message DLZ0691 — DL/I 
Normal Termination Complete. 






BALR 


DLZODPO2 — System Abnormal and Normai Termination CSECT 


Extended Description Routine Label Extended Description 








10. Write message DLZ0681 — System 
Previously Abended, DL/I Abnormally 
Terminated — if the system abend 
indicator (SCDSYSAB) is on at this time. 


DLZODP0O2 |STPFLUSH 


Write message DLZO65I — Active DL/I 
Tasks — if a PPST is still active. 


. Write message DLZ0671 if there is 
insufficient core to terminate DL/I. 


. Write message DLZ0661 if an error 
occurred during close processing. 
Then load and execute dump module 


DLZFSDPO0 via DFHPC TYPE=LOAD 
and return to DFHSTP. 


OUTPUT 





PSTPREAD 
PSTSCDAD 
PSTPSB 


PSTSV1 


PSTSV2 


PSTSV3 
PSTSV4 
PSTSV5 
PSTSV6 
PSTSV7 









PST 


PSTFNCTN 


CICS/VS 


DFHSTP 


DLZODP 


Routine Label 
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Figure 2-6.3. Task Termination Routine (Part 1 of 5) 


INPUT. 


From Figure. 
2-6.11 Step 

3 or CICS/VS | 
‘§ OF HPCP 






PROCESS 


OUTPUT 


1. Save program control program’s RO RQ 
base and return address. | 









DLZOLT02 | 


Issue TRACE Macro 


t 





TCA Dep 
~~~ J” 2.A. For System task termination 
1 oe go to Step 17. SCDSIND2 
oy 17 —7P  B. For normal task termination 
[roasvaet ) go to Step & 
TCA | —f—- 7 7 ¥ 3. For abnormal task termination 


TCAPATR. 


ij 


System in 

TCA 
TWA 
TWAMPSFG 


PST TWAMPCPT 


PSTPREAD TWABPCID 


PPST 
PPSTIND MPCDELIM 
MPCPID 
MPCSXECB 


MPCPTLN _ 


DLZXCBni 
XECB 


ARE 
oO 
ws 
— 


_ DLZXCBn2 
XECB 





DLZODPO1 — Task Termination Routine CSECT 


Extended Description 








. Routine identifier (DLZODPO1vrnp) 
is defined here. 


This is the entry point for CICS/VS 

- PCP termination exit indicator 
(TCADLITE) is on and the task is about 
to be detached. Also, if a TERM or T 
call is detected by the program request 
handler, an entry is made here to 
unschedule the task. 


If trace is enabled, a task termination 

entry with a ID=X‘F8’; type of request 
= X‘E3’, is made showing why termina- 
tion was requested, and the DL/I status. 


. A. The system interface active 
indicator (SCDSYACT) at 
SCDSIND?2 is turned off if this is 
a system task (TCADLPAS is on). 

B. | 


. No formatted dump will be produced in 
case of missing PST or insufficient stor- 
age available. If SYSDUMP=YES was 

specified for the DOS/VS partition, an 

IDUMP is taken instead of the formatted 

dump. 


call dump program. 


1? 4. Clean up XECBs if abending task — 
is DLZBPCOO (Batch Partition 
Controller). a 


Routine 





DLZODP01 | DLZODP01 








DLZFTDPO 


Formatted Task 
Dump Program 


| 






BALR 





MPCPT DLZXCBO1 


MPCELAG 


XECBTAB TYPE=DELETE | 
XECB=DLZXCBn2 


XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 


a 





XPOST XECB=DLZXCBn1 


XECBTAB TYPE=CHECK 
XECB=DLZXCBn2 


LITT 


-DLZODP | 


Label Routine 








DL/I system ABEND will be reduced 
to task ABENDs. In case of DL/I 
system ABEND all DL/I tasks will be | 
abended by DL/I. For each task, 
DLZFTDPO0 will be called. 


DLZFTDPO uses the CICS dump macro 
DFHDC, that dumps DL/I blocks on 
the CICS dump data set. To get the 
dump on printer, use offline CICS 
program DFHDUP. 


. If BPC (DLZBPCO00) is the terminating 
task, the POST bit in the Stop Parti- 
tion XECB (DLZXCBO01) is set on to 
signal MPC (DLZMPCO0) that BPC 
abended. Note that the XPOST macro 
is not needed because the XECB_ 
(DLZXCBO01) was defined in this 
same partition. 


The partition ID (TWABPCID) this 
terminating BPC was attached for is 
used to locate MPS Batch XECB 
(DLZXCBn1) via XECBTAB/CHECK 
which is then posted (XPOST). The 
BPC XECB (DLZXCBn2) is then 


DLZTKTRM 


DLZOLT02 


NOSYSTSK 
DLZODP06 


located and deleted. 
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Figure 2-6.3. Task Termination Routine (Part 2 of 5) 
INPUT m PROCESS ge OUTPUT 


TCA — —-5.A. If this task was suspended by DL/I, 


go to Step 20. 


B. If this task has no PST acquired, go 
_ to free PPST only. Step 18. 


— — —p 6. If task scheduled to remote PSB, set up 


remote term call. 
DLZISCO2 


Remote Term Call 
Interface 


PDIROPTC 


a") 
Y 
/ i 


! 





26.17 





TCA 


TCADLIPA PDIROPTC 


PPST 


SCD 
7. Issue TERM call to call analyzer to sahs chads 


ca) = purge buffers. 


PSTPREAD SCDDLICT 
PSTSV2 


PST 


DFHKC TYPE=WAIT 
PSTIOPRM 
PSTLIPRM 
DLZDLAOO 


Call Analyzer 
2-8 
PDIRSYM SCDESECB 


PDIRCODE 8. Write TERM log record on DL/I log 


PST or CICS/VS journal. 3 : 
| | Data Base LOGRE 
ed La | DFHKC TYPE=WAIT —— 
7 1] LLBB 
x‘07" 
idles | DLZRDBLO 7 
PSBNAME 






{ft 


BALR 


SCDEXT 





/PPST ScD 







tf 


PSTID 
TASK STAT 
CICS TSKID 


TCA SCDREENT BALR Log Write paras 
TCAKCTTA SCDCWRK 
| or 
TCASYAA SCDDBLOP 
DLZRDBL1 


Log Write Routine 
2-17 


9. Write a CICS/VS synchronization point 
record if termination exit is present. 


‘DLZODPO5S 









DLIAL 


SCDLSTAD DLITTEA 








I 





BALR Write Sync Point Record 
2-6.5 
DLZODPO1 — Task Termination Routine CSECT DLZODP 
Extended Description Routine Label . Extended Description ee. | Routine Label 


5. DLZODP01 |NORMTTRM 


7. A wait may be done at this time for the 
logger if-it is not available. 


8. The termination record is logged for 
normal termination of update users 
only. 
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Figure 2-6.3. Task Termination Routine (Part 3 of 5) | | : 
INPUT. sre setieies PROCESS . OUTPUT 


SCD 
SCDPPSTS || SCDEIDST | 
: CDE D xX — sa > , . “fe 
SCOEATES 10. Release hashed task identifier. 4G} psc SCDEXT 
SCDEIDWK T{Cscorown J [scpeionx 1] 





PPsT | 
Pst 
PSTTSKID 










PDIR_ DDIA 
PDIRSILA DDIRCNT , | 
DDIRCODE —-—") +11. Update DMB use count and reset 
PSIL | DB exclusive control. 


PSILDIRA SCDEXT 
PSILNTNT SCDEFECB 


SCD 
SCDPPAF PPSTCF ———"" 12. Resume all tasks suspended due 
SCDSIND 


to segment intent conflict. 


PPSTTCA 
em DFHKC TYPE=RESUME 


‘| DDIR SCDEFECB 








SCD 

SCDSIND 

TCA 
TCARSTSK 





PDI R JCB 
PDIRADDR JCBSDB1 
JCBSDBND 


4 PSDB SDB 
———" 13. Unchain SDBs from PSDBs. | ae Gane 





PSB . 
| PSBLIST 







SDBNSDB 


SDBPSDB 
SDBEND 





PDIR 


PDIRCODE 










_ PCB 


DBPCBJCB 










PSDB 


DMBFSDB 


- DLZODPO1 — Task Termination Routine CSECT DLZODP 





Extended Description Routine Label Extended Description Routine Label 











10. The lowest active identifier is main- DLZODP0O1 |TRMXTBY 
tained in the SCD. DL/I Space Manage- 
ment uses the low and high identifiers 
to exclude free space belonging to 
active tasks from reuse. 


. All tasks suspended for intent are 
resummed. At the next dispatch cycle 
they ‘will attempt to schedule. 
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DDIRCNT 
DDIRCOD2 








a, 


Figure 2-6.3. Task Termination Routine (Part 4 of 5) 
INPUT PROCESS OUTPUT 


————— F214. Free storage if this is a 
por duplicate PSB. 


PDIRCODE 


¢eump DFHSC TYPE=FREEMAIN 


SCD p PPST SCD 
PT ____—_>_ 15. Free DL/I task resources. 
==) DFHKC TYPE=RESUME 





SCD 


alk > 16. If any tasks are waiting for SCD TCA 
TCADLIPA |]. CMAX, post the first one. SCDATSKC | | TCARSTSK 





SCDSPCNT 
SCDSIND 


RO RQ . 
T > ‘17. If task is DLZBPCOO and batch PRH : 
TWA | needs XPOSTing, XPOST DLZXCBn1. System 


TCA 
[twacousw | 
Return to caller. ITCADLIT | 


DLZXCBn1 
XECB 









To 
CICS/VS 
DFHPCP or 
Figure 2-6.11 
Step 3 





PPST 


scD ? 
TpPSTICA | — —-p 18. Look for the PPST with this 
P 
[eestrca_] tasks TCA address and when 


found return to Step 15. 





' DLZODPO1 — Task Termination Routine CSECT DLZODP 


Extended Deseri tion Routine Label Extended Description Routine Label 








14. For read only or update with DLZODPO1 |TRMPSBFR 
program isolation. Duplicate 
PSBs are identified by the PDIR 
indicator PDIRDUPL. 


. This cleans up the terminating 
PPST, removes it from the active 
chain, and places it on the free chain. 
It checks the suspend chain and 
resumes a task suspended due to 
MAXTASK. 


The PPST number of the terminating 
PPST is put in the internal trace table 
along with a ‘T’ to indicate terminat- 
ing entry. Upon resuming, the total 
suspended count is decremented 1 and 
the current maximum task indicator is 
turned off if it was on (SCDCMTI). 


17. Turn off DL/I scheduled (TCADLISD) 
and DL/I termination required 
(TCADLITE) indicators. 


Issue message DLZ084I if XPOST fails. 
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Figure 2-6.3. Task Termination Routine (Part 5 of 5) eh | 
INPUT : PROCESS * , ' ge OUTPUT 


19. Issue a CICS/VS dump if the 
PPST is not found and go to 
Step .17. a 


‘aun DFHDC TYPE=PARTIAL 


—— —— > 20. Remove task from the suspend | 
chain and go to Step 17. SCD TCA 





TCA | 
TCADLIPA 





SCD | 
SCDDLIS 
SCDSPCNT 





DLZODP0O1 — Task Termination Routine CSECT oe : - DLZODP 


Extended Description Routine Label Extended Description | Routine Label 
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Figure 2-6.4. Start-of-Task Record Writer 
INPUT PROCESS 


From 
Figure 
2-6.1 
Step 25 







1. Save registers and establish | 
addressability to CSA and 
system TCA. 





TCA = —-—-p 2. If Start-of-Task record is 


already logged, go to Step 5. 


3. Get journal control area. 
Gap DFHJC TYPE=GETJCA 


R11 


JCA Address —— 


VW 


4. Write Start-of-Task record. 


Caller 


— 


5. Restore registers. 


RO 


Save area 





DLZODP04 — Start-of-Task Record Writer 


Extended Description . Routine Label Extended Descri 





1. Routine identifier DLZODPO4vrnp 
is defined here. 


DLZODP04 |DLZODP04 


. Acquire task’s JCA and establish 
JCA addressability. 


. Dummy record is written to system 
log and CICS Start-of-Task indicator 
is set in it to mark start-of-task on 
system log. 


. Restore save area address in register 
13 and reload registers 14 through 
12 from the save area. 


OUTPUT 


Caller 
Registers 


Save area 


System TCA 





R11 


JCA Address 


CICS/VS System Log 
CICS/VS Start-of-Task 


Record 
To 
Figure 
2-6. 
Step 26 
DLZODP 


Routine 
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Figure 2-6.5. Sync-Point Record Writer (Part 1 of 2) 
INPUT so : PROCESS 


From 
Figure 
2-6.3 
Step 9 
or From 
DFHSPP 









1. Save registers and establish 
addressability to CSA and 
system TCA. 





TCA 


— —¥Y, 2. If caller was DFHSPP (CICS/VS 


Sync-Point Program), go to 
Step 5. 


3. Issue a sync point. 


a DFHSP TYPE=USER 


[> 4. Restore registers and return. 


Caller 
Registers 





RO 


Save area 


R13 
CSA 


5, Build a Deferred Work Element (DWE). 


| Gum DFHSC TYPE=GETMAIN 


-DLZODPO5 — Sync-Point Record Writer 


| Extended Description Routine Label 








1. Routine Identifier DLZODPOSvrnp DLZODPOS5 |DLZODP0S 
is defined here. 
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OUTPUT 


Caller 
Registers 


R0 R13 | 


CICS/VS System Log 


Sync-Point Record : 


TCA 
TCAZLUWT 
ITCAFCTR | FCTR 
TCAZLUWT 

TCA 


DLZODP 


Routine Label 


Figure 2-6.5. Sync-Point Record Writer (Part 2 of 2) 
INPUT PROCESS OUTPUT 


R10 
DWE ADDR 


TCA ; 
TCADWLBA __.—. —. f 5. Insert DWE at end of DWE chain. DWE @ End of Chain 
TCASCSA , DWECHAN 


NEW DWE 





7. Return. 


R14 


DFHSPP Return 
Address 





‘ma 1o 
DFHSPP 


i 










From 
DFHSPP 








R6 R10 
System DWE ADDR 
TCA 


R13 RO 


PST ADDR 


DFHSPP 
Return 
Address 


| 8. Restore Task Termination 


environment. 










TCA 


Caller . 
Registers [tcarctr | FCTR 


PSTSV1 + 12 


DFHSPP Return 
Address 






9. Return. 





DLZODPO5 — Sync-Point Record Writer JLZOUF 


Label 


Extended Description Extended Description Routine 














6. Store address of DWE entry point 
of DLZODPOS in DWE for deferred 
processing by CICS/VS. 


8. Set up registers and PST save area 
to complete task termination and 
then return to DFHSPP. 
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Figure 2-6.6. Online Program Request Handler 
PROCESS = 


» INPUT 





From 
Application 
Program | 
(See Note) 


SCDCSBAB: User Call 
List ; 


CSA 


R13 . 


User Save : 
Area 


CSACDTA 










“TCA 
TCADLIPA 


ACT = 







SCDLOWER. | 
SCDUPPER | 


” 
'?) 
i] 


User Call List 


TERM = —— 


[ cmxt : : 

STRT | 
. . 6 

{STOP 

| tsTP 3 
ae 
R8 a SCD : ; 
User Save SCDCSABA: 
Area _ 7 RT Hearn na 
: CSA 
CSACDTA - 
TCA j 


-TCAFCTR | 









Callers 


C isters 


DLZPRHOO — Program Request Handler CSECT . 








Extended Description 


Note: This routine receives control from 
the Language Interface Module 
(DLZLI000) linked with the application 
program. 7 












1. Module identifier (DLZPRHOO vrnp) is 
defined here. The level format is vrnp; 
where ‘v’ is the version, ‘r’ is the release, 
‘n’ is an additional identification 
number, and ‘p’ is the latest PTF num- 
ber that has been applied. 










2~62 


. Determine if the call function is a 


| PcBM es, 4 5. 


. Go to Step 8. 


| TsTR | : 7 


. Call trace program. 


Routine 





DLZPRHOO| DLZPRHOO 









. Establish addressability to SCD, CSA, 


and task TCA and acquire UIB storage 


if required. 


DFHSC TYPE=GETMAIN 


. Indicate DL/I is active. 


quae 


DFHIC TYPE=ENTRY | 


. If scheduling call, validate parameters. 


scheduling, termination, or system 
call. If it is go to Step 7. 


Go to Figure 2-6.10 to process normal 
DL/I calls. 


Go to Figure 2-6.11 to process 
scheduling, termination, or 
system calls. 


DLZOLTOX 


(==) 


Issue DFHTRACE 
macro 





. Restore registers and return. 


em DFHIC TYPE=EXIT 


To 
Application 
Program 


Label 3 _ Extended Description 






. UIBFLAGI bit setting determines 
whether DLZOLTO0, DLZOLTO1, 
or DLZOLT02 is called for 
scheduling, data base or 
termination call, respectively. 


. If UIB is used, update UIBRCODE 
from TCAFCTR. 
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OUTPUT = 


R8 


User Save 
Area 
R11 


User Call 
List 


R2 | 
R13 : 
R12 


TCA 


TCASVMID 


TCA 


TCADLUIB 
TCASCSA 


TCA 


TCASVMID 


UIB 


UIBRCODE 





DLZODP _. 


Routine . Label : 
ECIVAL - 


TESTFUNC 


RETURN’ 








Figure 2-6.7. Online Error Message Routine (Part 1 of 2) 


INPUT 









From 
Caller 





| 


scDd TCA 
SCDCSABA TCASYAA 


CSA 
CSACDTA 


TCA 

TCADLII 
TCA PPST 
PST 


TCADLIPA PPSTIND 


PSTPREAD 








PST 


PSTERCOD 


PARM LIST 


Ped 





ERMSGADT 
ERMSGSV1 
ERMSGSV2 







| 
O 
O 
> 






TDOA 


TDOADBA 


DLZERMSG — Online Error Message Routine 


Extended Description 





1. Routine identifier (DLZERMSGvinp) 
is defined here. The level format is 
vrnp; where ‘v’ is the version, ‘r’ is 
the release, ‘n’ is an additional 
identification number, and ‘p’ is the 
latest PTF number that has been 
applied. . 


. If there is no PST the message number 
will be in:the parameter list which is 
pointed to by RI. 


. ‘Currently active’ has a special mean- 
ing. There may be many DL/I tasks 
active at this time. Therefore, DL/I 
uses a bit (PPSTACT) in the PPST to 
make it easy to spot (in a dump) the 
single DL/I task that is currently 
processing non-scheduling DL/I calls 
(Non-scheduling calls being calls 
handled by the call analyzer and other 
DL/I action modules). 


Tasks like the MPS Batch Partition 
Controller can have a PST and can call 
DLZERMSG while not being the 
currently active task. . _ 


PROCESS 


Routine 





OUTPUT 





Caller | 
A Registers 
pas 
R12 . 


R6 


System TCA 


1. Establish environment. 






2. If this task has no PST go to 
Step 4. 


3. Save the ‘currently active’ status 
and indicate this is no longer 
the currently active DL/I task. 


RQ PPST 
PPSTIND 
SCD 


SCDCDTA 





4. Acquire storage and construct 
error message. 










TOOA 
ERMSGAPR 
ERMSGADT 


: ERMSGSAV 
OLZMMSGT 


Message Text Construction 


5. Write message to TD destination 


CSMT and system operator console. wTO 


WTODATA 


DFHWTO Macro 


| Gq: DFHTD TYPE=PUT 


DFHSC TYPE=FREEMAIN 
DLZODP . 


Label Extended Description Routine Label 





Since CICS/VS can schedule another 
DL/I task during a CICS/VS operation, 
(for example, I/O) PPSTACT is reset 
by DLZERMSG for the duration of 

the write because there can only be one 
task marked as ‘currently active’ by 
definition. 


. The GETMAIN output buffer is 
needed by CICS/VS transient data 
services. 


DLZMMSGT is used to construct text 


for messages with message numbers 
from 1 — 255. 
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Figure 2-6.7. Online Error Message Routine (Part 2 of 2) 
-INPUT | PROCESS 


SCDEXT 


| scp : ; 
7. Wait for the logger if the 


-SCDDBLOP 











Caller 
Registers TCA 


PST 


PSTPREAD 


-DLZERMSG — Online Error Message Routine 


Extended Description © P2233 Routine Label 






6. Since control was lost during the 
I/O another job may have activated 
the logger. To assure serialization, 
this routine must wait until the 
logger is done. 


7. Reset ‘currently active’ status to 
the value it was on entry. 
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log is open and busy. 


a= ~ DFHKC TYPE=WAIT 


> ~SCOS8S, Retr original environment. 


Extended Description 


To 
Calter 


OUTPUT 


TCATCEA. 


PPST 


PPSTIND . 


DLZODP 


Routine 


SCD 
SCDCDTA 





Label — 


Figure 2-6.8. Online Wait Routine 
INPUT ; 


| sep TCA. 
SCDCSABA_| | TCASYAA 


A R2 
CSACDTA ECB 
Address 


From 
Caller 









R3 


TCA 
TCADLII 


PROCESS 


1. Establish environment. 





2. Indicate the non-scheduling 
task not ‘currently active’ 
and issue CICS/VS 1/O wait. 


qua DFHKC TYPE=WAIT 


OUTPUT 


R13 


Caller 
a 
R12 R3 
TCA User ECB 
Area Address 
R6 


System TCA 


TCATCEA PPSTIND 
D 
SCDCDTA 








TCA 


TCATCEA 


J 


Return to Step 2. 


(am DFHPC TYPE=ABEND 


TCA 


Caller 
TCADLII —— 





DLZOWAIT — Online Wait Routine 


Extended Description Routine Label 





1. Routine identifier (DLZOWAITvrnp) 
is defined here. The level format is 
vinp; where ‘v’ is the version, ‘r’ is 
the release, ‘n’ is an additional 
identification number, and ‘p’ is the 
latest PTF number that has been 
applied. 


. Anon-scheduling task is a task that 
does not issue the special scheduling 
call (PCB,SYSTEMDL, password) to 
schedule itself so that it may issue 
system calls: CMXT, STRT, STOP, 
TSTR, and TSTP. 


‘Currently active’ has a special meaning. 
There may be many DL/I tasks active 
at this time. Therefore, DL/I uses a 
bit (PPSTACT) in the PPST to make 
it easy to spot (in a dump) the single 
DL/I task that is currently processing 
non-scheduling DL/I calls (non- 
scheduling calls being calls processed 
by the call analyzer and other DL/I 
action modules). Since CICS/VS can 
schedule another DL/I task during a 
CICS/VS operation (for example, 
I/O) PPSTACT is turned off until 
return is made to the caller of 


DLZOWAIT} DLZOWAIT 


OWATRECK 


ECB aaa 

Address 
SCD PST 
SCDEXTBA | |PSTCODE1 

3. Wait for the logger if the log 
SCDEXT is open and busy. 
SCDESECB 
DFHKC TYPE=WAIT 
SCD 
SCDSIND2 P 4. Check if DL/I abended 


5. Restore original environment. 









PPST 
PPSTIND 


SCD 


SCDCDTA 








To 
Caller 


DLZODP 


DLZOWAIT because there can only 
be one task marked as “currently 
active’ by definition. 


. Serialization of the logger resource is 
another job of the online nucleus. 
Since control was lost during the 
wait, another job may have activated 
the logger. To assure serialization, this 
routine must wait until the logger is 
done. Return is then made to Step 2 
to recheck that this task’s ECB is 
posted and to reissue the wait again 
if it isn’t. 


OWAITRET ff 
OWAITCON ff 


. Reset non-scheduling task to 
currently active status as it was 
on entry. 
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Figure 2-6.9. VSAM Asyncronous Exit Processor 
INPUT « 


rom VSAM » PROCESS : ae OUTPUT mm 


Module : . 
IKQIOA 


1. Establish environment. 


R13 
R6 
System TCA 


Ri2 


TCA User Area 





TCADLIIT — PSTPREAD 


2. Indicate the non-scheduling task 
| VSAM not ‘currently active’ and issue 
Parameters CICS/VS wait. 


CCB 
Address (gum) DF HKc TYPE-waiT 


scD SCDEXT 


3. Wait for the logger if the log 
is open and busy. 


ap DFHKC TYPE=WAIT 


PPST SCD 
| PPSTIND SCDCDTA 


TCA ; 


TCATCEA 





TCA 


TCATCEA 








TCA | 3 
PPST SCD 
TCADLII ei acass 4. Return to VSAM. | eee oecoek 
7 
| 
To VSAM 
Module 
IKQIOA 
DLZOVSEX — VSAM Asyncronous Exit Processor | | DLZODP 


Extended Description Routi 


3. Since control was lost during the 
wait another job may have activated 
the logger. To assure serialization, this 
routine must wait until the logger is 
done. 


1. Routine identifier (DLZOVSEXvrnp) 
is defined here. 


. Anon-scheduling task is a task that 
does not issue the special scheduling . 
call (PCB,SYSTEMDL, password) to 
schedule itself so it may issue system 
calls: CMXT, STRT, STOP, TSTR, 
and TSTP, “Currently active’ has a 
special meaning. There may be many 
DL/I tasks active at this time. Therefore, 
DL/I uses a bit (PPSTACT) in the 
PPST to-make it easy to spot (in a 
dump) the single DL/I task that is 
currently using the call analyzer and 
other DL/I action modules. 


. Reset non-scheduling task to 
‘currently active’ status as it was 
on entry. 


Since CICS/VS can schedule another 
DL/I task during a CICS/VS operation 
(for example, I/O) PPSTACT is turned 
off until return is made to the caller of 
DLZOVSEX because there can only be 
one task marked as ‘currently active’ 
by definition. . 
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Figure 2-6.10. Online PRH Processing of Normal DL/I Calls (Part 1 of 2) 
INPUT PROCESS OUTPUT 







From Figure 
2-6.6 Step 6 


TCA 


TCADLII 
TCADLIPA 





1. If caller not scheduled, set error and 
go to Step 16. 





SCD PST 


SCDLOWER | | PSTPREAD 
SCDUPPER | | PSTLIPRM | : : 
> 2. Validate and move call parameter list 
PPST | to PST. 


PST 
PPSTIND PSTLIPRM 





oh | > 3. If task scheduled to remote PSB, set up 


remote data base call. : PST 


PSTSV1 
a) DLZISCO1 


Remote Data Base 
Call interface 
- 2-6.16 






SCD SCDEXT 


| SCRE TE A | | PECOEs eee 4 > 4. Wait for the logger if the log is open 
SCDDBLOP and busy. 
em DFHKC TYPE=WAIT 
SCD 


| pstpREAD | [scopiict |{ > 5. Exit to DL/I Call Analyzer. 
PSTCODE1 
DLZDLAOO 


PSTLIPRM a= . —_ 
Call Analyzer 
2-8 


PSTSV1 . * | BALR 


PPST 


SCD 
SCDCDTA PPSTIND 
PST 


PSTIQPRM 















PPST 


PPSTIND 


PST , , La ot OSs 
| > 6. Clear the active task indicators. 


PSTCODE1 


ScD 
SCDCDTA 





| scp ti(‘<i«é‘éiALSSOC*«‘«‘wW > 7.. Write CICS/VS synchronization point 
SCDLSTAD DLITTEA record if call is CHKP. If not, go to 
Ee _ ei 


PST 


PSTPCT2 asses} DLZODPO05 


BALR Task Term Sync 
Point Return 
2-6.5 





_ DLZPRHOO — Program Request Handler CSECT | DLzopP . 


Extended Description Routine Label - Extended Description Routine Label 


1. Set 08 in TCADLTR if TCADLISD, : 5. At this point the system is switched EXITANAL 
task scheduled indicator not on (there . from the CICS/VS state to the DL/I ; 
was not a previous PCB or PCBM call). state (standard register assignments). 


: The task TCA address is put in 

- Write message DLZ2601 if the SCDCDTA as the current dispatched 
parameter count is invalid. : | task TCA. Also, the current task 
Write message DLZ2611 if the indicator (PPSTACT) is turned on. 
parameter address is invalid. : 


. Allow ISC mirror (DFHMIR) to use 
IOAREA address=0. 
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Figure 2-6.10. Online PRH Processing of Normal DL/I Calls (Part 2 of 2) rr ae ea 
INPUT mean: PROCESS = , OUTPUT. 


SCD 
| —f— —-, 8. Dequeue task program isolation 


resources if program isolation 


active. | | 
oo: DLZPUR Macro 
| 9. Reset CHKP call indicator. Vagpas ii . , 

PPST : _—_ | 

[restino — |— ——- >? 10. If the caller is an MPS task, | 
| | go to Step 15. 

PST : 
[pstasino | — ———"/ 11. If task or system abend 

| Pay indicated, go to Step 13. 

PST | | 

PSTUSER — =P 12. Move data to user’s I/O area. 

PSTSEGL Then go to Step 15. 














CSACDTA BALR _.. Error Message 
Routine 
2-6.7 


PST a —— —— 14, Write message DLZ0621 — DL/I 
| | has been abnormally terminated - SCD 
| | — if asystem abend indicated. . 


=> - DFHPC TYPE=ABEND 


7 oe a | ; | To 
: Figure 2-6.6 
| | 15. Return. — Step 6 


~ DLZPRHOO — Program Request Handler CSECT | , / DLZODP 


| User 1/O Area 
| PSTSEG , | 
| PST SCD | | 
| aclelediesdl behets — —= 9 13. Abend user if a task abend | | 
SCDCSABA indicated. ee . ; 
: A | SCDERRMS ri | oe 
| | ; : 


‘Routine. 





Extended Description Routine Label 


. If the caller is not in the CICS/VS 
re DL/I partition (MPS caller — 
PPSTMPS), skip abend check : 
(DLZMPI00 will handle abend) and — 
skip move of data to user area 
because you cannot move across 
partition (DLZMPIOO will handle 

data move). — Eating 86 


. If user’s IOAREA address=0, skip 
moving of data. 


. If this is a task abend, a CICS/VS 
abend is issued. 


. If this is a system abend (PSTSABND PRHSYSAB 
on) the system abend indicator , 
SCDSYSAB is set in the SCD and all 
active DL/I tasks will abend at the 
earliest opportunity. 


Mam 
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Figure 2-6.11. Online PRH Processing of Schedule Termination, and System Calls 
INPUT PROCESS OUTPUT 
From Figure 


2-6.6 
Step 8 


1. If function equals PCB or PCBM, 
go to Figure 2-6.12 to schedule. 


2. If function is not T or TERM 
call, go to Step 7. 


TCA SCD 


TCADLI SCDTKTRM 3. Call task termination to 
unschedule the task. 
DLZTKTRM 





(=) 






BALR Task Termination 
Routine 
2-6.3 
TCA 
eee —————-7 4. Free PST storage if it was 


TCADLIPA acquired. 


Gum DFHSC TYPE=FREEMAIN 





TCA SCD 
TCAPCTA SCDACTBA 
TCADLII —-—-—-p 5. Restore ACT pointer into task 
TCA. TCA 
ACT , TCADLIPA 
PPT 6. Go to Step 8. 
PPTPI ACTPCNT 
ACTBLEN 7. Go to Figure 2-6.13 to process 
system calls. 
8. Return. 
To Figure 
2-6.6 
Step 9 
DLZPRHOO — Program Request Handler CSECT DLZODP 


Extended Description 


1. 


3. Set 07 in TCADLTR if TERM call 
and a DL/I task termination is not 
~ required (TCADLITE is not on). 


. The ACT table entries are searched to 
find the entry name with the program 
name that is in the PPT entry. The 
address of the ACT entry found is 
stored into TCADLIPA. If an ACT 
entry is not found and this is not a 


system task (TCADLPAS) DFHPC 
TYPE=ABEND macro is called with 
abend code = DACT. 
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Figure 2-6.12. PCB or PCBM Scheduling (Part 1 of 2) | ae . Pass | 
INPUT: om "| From Figure g@ PROCESS | OUTPUT 


2-6.11 
Step 1 
User Call List 


_ — —- 1. If this is a system scheduling 
call, exit to Figure 2-6.13. 


' User Call List 


1— ——-=P 2. If there is no PSB name, go 
: to Step 4. 


ScD PDIR 


> 3. Scan PDIRs for PSB name until 
found, then go to Step 5 to 


User 


TCA Call List begin scheduling. TCADLPSB 
TCADLII | 
TCADLPSB 
SCD PDIR a 
[scopurs_| PDIRLEN : . ; 
ae 4. Find the first PDIR associated | | 
















TCA ACT with the application program R3 


TCADLIPA | | ACTPPTR name in the ACT. Spin 
Address 


ACT 


( | PDIRADDR | ADDR ACTNM _| 5. Check for | flict PSB 
cuneate eneesaaD P oo ec or angu age con tc Ss. 
PDIRCODE | | ACTIND ec (aa PSBCODE 
PDIROPTC 





DLZPRHOO — Program Request Handler CSECT | : . | a | DLZODP 


Extended Description Routine | Label 











Extended Description Routine Label | 









5. If call function code is PCBM (MPS 

scheduling) or program name is 
_ DFHMIR (ISC mirror program), 

skip language conflict checks 
because an assembler language 
routine is issuing scheduling calls for 
programs written in all supported 
languages. 


| ~— 1. Set 04 in TCADLTR if PL/I with no 
count field. 


. Set 03 in TCADLTR if the task is 
currently scheduled (TCADLISD is 
on). 


Set 02 in TCADLTR if the task is not 
a DL/I task (TCADLISI). 


Set 06 in the TCADLTR if the PSB 
name is too long (PSBNAME has a 
maximum of 7 characters with a blank 
in 8th position) or if there is no name 
specified. 


~ Set 04 in TCADLTR for language 
conflict. . | 


. Set 01 in TCADLTR if the PSB name is 
not ina PDIR. 


If PSB name=‘*#’, use default PSB 
name. 


. The first PDIR pointer is determined DEFPSBSC 
from the task’s ACT entry and is used 
to generate the PSB name. 
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Figure 2-6.12. PCB or PCBM Scheduling (Part 2 of 2) 
INPUT 


ACT R3 


ACTPPTR 









PDIR Ss 


— SCD 
PDIROPTC | {| SCDASE 


| TCA 8. 


TCADLUIB 
TCADLPCB 


TCA ScD 
TCADLII SCDTKTRM 





DLZPRHOO — Program Request Handler CSECT 


Extended Description 





. Set 06 in TCADLTR if the PSB is 
not in the task’s ACT entry. 


. Set 05 in TCADLTR if PCB failed 
to initialize. 


. Turn on TCADEISD to indicate the 
task is scheduled. 


If UIB is used, update UIBPCBAL with 
PCB address list address. 





. For errors where the caller was already 
scheduled and no PST storage was 
acquired, return directly to 
Figure 2-6.6, Step 8. 


PROCESS 


. Scheduling errors. 


Routine 





OUTPUT 


. Verify that the found PDIR for 


the PSB in the user call list 
is in the task’s ACT. 


. Call task scheduler. 


== 


BALR 


DLZSCHDL 


Task Scheduler 
Routine 
2-6.1 


Turn on scheduled indicator 
and return if no errors. 











TCA 


TCADLII 


VIB 


UIBPCBAL 










To. Figure 
2-6.6 
Step 8 








TCA 
TCAFCTR 
TCADLTR 


TRMFREPP 
TCADLPCB 


(=m) 






BALR PPST Free Routine 

2-6.3 

Step 15 
To Figure 
2-6.9 
Step 4 

DLZODP 
Label Extended Description Routine 


DFRSPSBC. 
DFRSPOK 


PRHRETN 


DFRSERRS 
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Label 
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Figure 2-6.13. System Scheduling Call (Part 1 of 4) 
INPUT PROCESS » OUTPUT 


SCDEXT 


SCD | 
|_SCDSIND2 —-——-—— 1.1f ‘SYSTEMDL’ call, schedule SCD TCA 


SCDEXTBA | DSG system scheduling. SCDSIND2 TCADLII 


PST DSGDSGLN | PST PST 
PSTLNGTH Gem) DLZSCHDL PSTCODE1 PSTPREAD 
BALR Scheduling Routine PSTDSGA | 
26.1 PPST 
| PPSTCA 
Go to Figure 2-6.6, Step 8. . 

User Call List 
TCA PPST User Call List 






2. If CMXT function, adjust CMXT. 


PST 
PSTPREAD 
PSTLIPRM 


Go to Figure 2-6.6, Step 8. 


SCD _ PST 


SCDCMXT PSTUSER 
PSTSEGL 
PSTSEG 


PSTLIPRM 





requested trace module and issue 
initialization call. SCD 


User Call List SCDTRACE 
ae DFHPC TYPE=LOAD SCO TRCN 


DLZTRCAL TYPE=START 


SCD TCA , , 
| — ——f 3. If TSTR function, load the 
| 





I 


Go to Figure 2-6.6, Step 8. 


DLZPRHOO — Program Request Handler CSECT . DLZODP 


Extended Description | Routine Label Extended Description Routine Label 





1. A task requesting services through the 
system calls must have been previously 
scheduled by password with this 
special schedule PCB SYSTEMDL 
call. If the password: does not match, 
the caller abends via DFHPC with code 
DLPV. 


Without MPS, data is moved to the 
user call list area for work space. With 
MPS this would cause a storage pro- 
tection exception. To avoid this, an 
area in the PST (PSTLIPRM) (in the 
CICS/VS DL/I partition) is used as a 
work area. The MPS batch program 
request handler (DLZMPIOO) then 
moves the data from the PST into 

the user call list. 


Important indicators set are: 


SCDSYACT — system interface 
active 
TCADLITE termination 
| required 
TCADLPAS system task 
scheduled 
TCADLISD — task scheduled 


If the new request is zero, negative, or 
exceeds MAXTASK indicate an 
invalid request error (set 08.in 
TCAFCTR). 


. If task not scheduled for system PROCTSTR 
calls (TCADLPAS not on) abend 
Exit is taken to scheduling routine to via DFHPC. 


get a PST and initialized upon return. 


If tracing is already active set X‘O1’ 
PSTSCALL (system call in progress) in TCAFCTR. 


is set and return is made to caller. 


If the load fails, set X‘02’ in TCAFCTR. 
. The value passed by the user 
validated and moved to.the SCD. If GETMAIN fails during initialization, 


set X°04’ in TCAFCTR. 
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Figure 2-6.13. System Scheduling Call (Part 2 of 4) 
INPUT PROCESS OUTPUT 


TCA 


SCDCSABA TCADLII 


SCDTRACE _—— > 4.\1f TSTP function, issue 
SCDTRCNM termination call to trace module 
and free storage. 





ISCDDLIDM | . Locate DDIR entry. 
DDIR 


PST 


PSTUSER 
PSTLIPRM 


DDIR 


DMB 
DDIRADDR| |DMBORG . Verify that the ACB is usable. SYS 
DDIRCOD2 | |DMBPPRLN SYSACB1 






DMBACBAD 
‘DMBACBLN 


ACBXT (=== TESTCB Macro 


TESTCB Macro 





DLZPRHOO — Program Request Handler CSECT DLZODP 


Extended Description Routine Label 




















4. If task not scheduled for system PROCTSTP 
calls (TCADLPAS not on) abend 
via DFHPC. 


7. The ACBs are checked for open/close 
status. The ACB address (2 if HISAM 
organization) and whether the ACB 
is open or not is put into the user call 
list (or if this is an MPS task, into the 
PST). Reference to fields within either 
of these two areas is by the system call 
parameter list DSECT (DLZSYSDS). 


If tracing not active, set X‘O1’ in 
TCAFCTR for invalid request. 


. If task not scheduled for system PROCINIT 
calls (TCADLPAS not on) abend 
via DFHPC. If the DDIR failed to initialize, set 

X02’ in TCAFCTR. 

. The DMB name passed by the caller PROICON 
is used to scan the DDIR. If TESTCB request fails, set X‘03’ 


in TCAFCTR. 


If this is not an MPS task, data (VSAM 
return code and ACB address) is moved 
into the user call list for the caller. 
With MPS, a work area is used in the 
PST (PSTLIPRM) to build the data 
from the PST to the user call list. 


If the DDIR is not found, set X‘08’ 
in TCAFCTR to indicate an invalid 
request. 


Licensed Material - Property of 


SCDTRACE 





SYSACB2 
SYSFLGS 


SCD 


<= DLZTRCAL TYPE=STOP 
(eax) DFEHPC TYPE=DELETE 
Go to Figure 2-6.6, Step 8. 
TCADDLII —__. __ y 5. If STRT/STOP function, initialize 
DBD parameters by first verifying 
. the caller is scheduled. 
PPST PST 
PPSTIND PSTPREAD aus 
SYS dies thhas SYSBEGIN 
SYSBEGIN SYSFLGS 








Extended Description Routine Label 





Figure 2-6.13. System Scheduling Call (Part 3 of 4) 


Initialize the dummy DSG. 


INPUT PROCESS 
SCD PST 
SCDCSABA PSTDSGA > 
DDIR DMB i 
DDIRADDR DMBORG 
DDIRNUMB] | 9 












DDIR SYS 


DDIRCODE SYSFLGS 


DDIR SYS 


DDIRCNT SYSCLECB — —— <i 11. 


ScD 


SCDEXTBA 


PST DSG 


PSTDSGA DSGDMBNO 





PSTSUBNM scD 12. 


PSTSV1 SCDDDBHO 
SCDDBFPL 


BFPL 


BFPLSUBD 
BFPLSUIN 








DDIR SYS 
— > 14 
DDIRCODE SYSFLGS 


SCD SCDEXT 


SCDEXTBA | |SCDESECB —. a a = 1.. 


SCDDBLOP 





DLZPRHOO — Prograra Request Handler CSECT 


Extended Description Routine Label 





8. 


10. If the ACB is not open, set X‘01’ to 
indicate the STOP call is invalid. 


12. Set X‘04’ in PSTFNCNT to indicate 
‘mark buffers empty request to 
buffer handler’. 


The DMB number is used to index 
into the subpool directory to get the 
subpool number for this DMB. If there 
is no subpool number, bypass calling 
the buffer handler. 


Set X‘01’ in PSTFNCNT to indicate 
‘close DMB request’ to open/close 
module upon return from buffer 
handler. 


. If this data base is not stopped or if 
the ACB is open, X‘01’ in TCAFCTR 
to indicate the STRT call is invalid. Set 
X‘09’ in PSTFNCTN to indicate ‘open 
DMB request’ to the open/close 
module. 


13. 


. If STRT function, go to Step 14. 


. For STOP function, check the 


validity of the call. 


Stop scheduling this DMB and 
wait for any users currently 
scheduled. 


(ama) DFHKC TYPE=WAIT 


Call DL/I Buffer Handler to 
mark buffers empty. 


Gus) DLZDBHOO 


Buffer Handler 
BALR Module 







2-15 


Go to Step 15. 


. For STRT function, check 


validity of call. 


Wait for asynchronous logger 
if open and active. 


= DFHKC TYPE=WAIT 


Extended Description 








PROCDSG 
PROCSTOP 


PROCSTRT 
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OUTPUT 


DSG . 
DSGDMBNO 
DSGINDA 


DDIR SCDEXT 


DDIRCODE SCDEFECB 





PST 














DDIR PST 


DDIRCODE PSTFNCTN 


DLZODP 


Routine Label: 


Figure 2-6.13. System Scheduling Call (Part 4 of 4) 









INPUT PROCESS OUTPUT 
ScD PST 
SCDDLICL | |PSTSV1 
| > 16. Call DL/I Open/Close Module. SYS 
DDIR SYSVSRET 
DDIRVSRT DLZDLOCO 
BALR Open/Close 
Module 
2-14 

SYS PST 
PSTLIPRM 
SYSBEGIN : > _—s—*17. Return. PST 
ISYSELGS _| LGS PSTSEGL 
SYSCLEAR PSTSEG 

To 

Figure 

2-6.6 

Step 8 

DLZPRHOO — Program Request Handler CSECT DLZODP 
Extended Description Routine Label Extended Description Routine 





16. The open/close module issues and 
SVC2 and CICS/VS loses control for 
the duration of the call. 


The VSAM return code in the DDIR 
upon return from the buffer handler, 
is moved to the user call list area (or 
if this is an MPS task, into the PST) 
which is mapped by DLZSYSDS — 
the system call parameter list DSECT. 


. If this isan MPS task, PSTSEGL and 
PSTSEG must be set up for MPS batch 
PRH (DLZMPI00) to.move data from 


PSTLIPRM to the user call list area. 
PSTUSER already contains the address 
of user call list area. 








Licensed Material - Property of IBM 


Label 
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Figure 2-6.14. Suspend Task Processing 
INPUT om : . PROCESS suman OUTPUT «= 
From Figure | 


2-6.1 
Step 2 











SCD 


RD. 1. Place task in suspend chain 
SCDDLIS oe SCD TCA. 


according to task dispatch eeu eee 
priority. aj [SCDDLIS ITCADLIPA | 
| | 


TCA 
TCATCDP 





TCA 


2. Suspend the task. 
TCADLII 


(am) DFHKC TYPE=SUSPEND 


3. Resume processing and attempt 
to schedule the task again. 





To Figure 
2-6.1 
Step 2 





DLZODP — Task and Resource Scheduling CSECT DLZODP 


Extended Description Routine Label 





1 


2. Turn on task suspended by DL/I 
indicator (TCADLIST). 


. Task has been resumed by DL/I 
task termination (DLZODPO1). 


Turn off the task suspend indicator 
(TCADLIST) and attempt to 
schedule again. 
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Figure 2-6.15. Remote Scheduling Call Interface Routine 














INPUT PROCESS OUTPUT 
From 
Figure 
2-6.1 
PST RPST Step 8 RIB 
eed 
R3 | RPST 
> 1. Build parameter list for scheduling call. (RPSTISC1 — RPSTISC4) 
A (PDIR Entry of Remote 
PSB) 
2. If MPS application program issues PCB 
call, set X‘0809’ in TCAFCTR. TCA 
Go to Step 5. 
3. Set RIBPCBM flag if PCBM call. RIB 
CSA 
[esaoret | 
resapisac | > 4. Call CICS/VS ISC module. 
| == DFHISP 
BALR 
RIB 
SCDABSAV > 5. If error, write message DLZ0331 


indicating type of error in message code. 


=) DLZERMSG 


BALR Online Error 


SCDERRMS 





Message Routine 
2-6.7 





PST 


6. Restore registers and return. 


To 
Figure 
2-6.12 
Step 9 
DLZISCOO — Remote Scheduling Call Interface Routine . DLZODP 
Extended Description Routine Label Extended Description Routine Label 


DLZISCOO 


. If CSADISAC=0 (no DFHISP module ISCNOMOD 
available), write message DLZ033I 
indicating no ISC module found. 


. Abend task after writing message if 
user call parameter list is invalid, 


function string is invalid, or internal 
error detected. 


ISCRETOO 
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Figure 2-6.16. Remote Data Base Call Interface Routine 






INPUT pone PROCESS OUTPUT 
Step 3 

PST RPST 

> 1. Build parameter list for data base call. RIBISCe 

R3 Reset RIB fields. RIBISCI 


PDIR Entry Address 


RIBFCTR 
RIBDLTR 
R11 


User Call Parameter List 
‘| Address 


RPST (RPSTISC1-4) 
A (X‘04’) 





A (Remote Interface Block) 


. 


A (User Call Parameter List) 
A (PDIR Entry of Remote 





PCB) 
RIB . 
P L 
CSA 


Se aes — — —p 3. Call CICS/VS ISC module. 


CSADISAC 
=p DFHISP 
RIB 
RIBISCI BALR 







oe ——-—-— 4. If invalid call type, return PCB status PCB 
code ‘AD’. Go to Step 6, 





—— —p 5. If error, write message DLZ0331 
indicating type of error in message code. PST 


PSTERDT1 
mu eee f |pstsv2 
| Online Error 
2-6.7 


PST : 
| ¢ 9. Restore registers and return. 
PSTSV1 


SCD 





R1B 
RIBFCTR 
RIBISCI 









To 
Figure 
2-6.6 
Step 9 
DLZISCO1 — Remote Data Base Call Interface Routine DLZODP 
Extended Description Routine Label Extended Description - Routine Label 


l. DLZISCO1 


2. The PCB address specified by the user ISCINDEX 
is the address of a local copy of the | 
real PCB in the remote system. It 
must be converted to a PCB index to 
identify the corresponding PCB in the 
remote system. 


If PCB index cannot successfully be ISCNONDX 
computed, write message DLZ476I 
and abend task. 


. Abend task after writing message if 
user call parameter list is invalid, link 
with remote system is out of service, 
or an internal error was detected. 
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Figure 2-6.17. Remote Termination Call Interface Routine 


INPUT From PROCESS OUTPUT 
Figure 
2-6.3 
Step 6 











PST 


| PSTRPSTA 
RPSTLEN 


1. Build parameter list for Term call. 


D 
Oo 
” 
| 


RPST (RPSTISC 1-2) 
A (X‘08') 
A (Remote Interface Block) 





TCA —_— — — —p 2. Set sync point flag if sync point need RIB 
not be done by ISC module. 
CSA — —-+ — — — p 3. Call CICS/VS ISC module. 


CSAOPFLA 
DFHISP 
CSADISAC 


BALR 


4, Restore registers and return. 


To 
Figure 
2-6.3 
Step 16 
DLZISCO2 — Remote Termination Call Interface Routine DLZODP 
Extended Description Routine Label Extended Description Routine Label 





- DLZISCO2 


ISCBALR2 
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Figure 2-7. DL/I Online System Termination 


INPUT <a PROCESS : OUTPUT sume 


From 
CICS/VS 
STP 


CSAOPFL i 
(teen @ RR —-—-— p 1. Locate entry point of DL/I 
| termination. 
|| CSAOPFLA | | CSADLI 


DLIAL 
2. Call DL/I termination. 


BALR DL/I System 
Termination 


3. Return to CICS/VS system 
termination program via 
DFHPC TYPE=RETURN. 






To 
CICS/VS 
STP 


DLZSTPOO — DL/I Online System Termination CSECT DLZSTPOO 
Extended Description Routine Label Extended Description Routine 


1. Control is gained from CICS/VS_ = =~ |DLZSTPOO | DLZSTPOO 
System Termination Program (STP) 
because of DLZSTPOOs presence in 
the program list table (DFHPLT). 
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Label 





Figure 2-8. Call Analyzer 
INPUT PROCESS OUTPUT 


From Caller 
(See Note) 


— > 1. Save registers and initialize. PSTSEG 


me oS 
00000000 


R13 


R1 
pera] 











Parameter ———  ———- —— 5 2. Encode function: 
List 
A. Normal Function — 





PCB-ADDR 


Figure 2-8.1. 
cael 


B. Pseudo function — 


Figure 2-8.3. 


3. Update JCB trace and PCB JCB R13 
segment name, level and key- 
length. Restore registers. 


i 
] 


PCB 
Return to 
Caller 
DLZDLAOO — Call | DLZDLAOO 
Extended Description Routine Label Extended Description Routine Label 


Note: DLZDLAO0 is called from the 
program request handler (DLZBNUCO- 
DLZPRHBO) in a batch system, from 
(DLZODP-DLZPRHOO) in an online 
system, or if at termination, it is called 
from either the application program 
control (DLZRRC00-DLZPCCO00) or 
from online task termination 
(DLZODP-DLZODP01). It is also 
called from DLZDXMTO. 


2. The function (first parameter in list) 
is encoded. If no valid function is 
found, ‘AD’ status is returned. 


Normal functions are GU, GN, GHN, 
GHU, GNP, GHNP, DLET, REPL, 
ISRT, ASRT, and CHKP. 


Pseudo functions are GSCD, UNLD, 
and TERM. 
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Figure 2-8.1. Call Analyzer — Normal Function 
INPUT PROCESS OUTPUT 


From Fig. 
2-8 step 2A 


“~~ FP 1. Validate PCB address. Update 
JCB and level table. 





2. Find user’s I/O area. 


—_———p 3. CHKP Function: 





A. If log not active, return 
to caller. 


B. Unload Routine: 
Figure 2-8.3. 
4. Validate SSAs: 
Figure 2-8.2. 
5. Perform key checking for loading. 
6. Validate sensitivity. 


7. Check length for variable length 


ie segments. 
— — —p 8. Call DLZDLOCO to open data sets. 


A. If at least one segment has field 
level sensitivity, call DLZCPY10 
(Figure 2-40). 


9. Call proper action module 
(DLZDLROO, DLZDDLEO, or DLZDLDOO). 






Return to 
Figure 2-8 
Step 3 


DLZDLAOO — Call 


Extended Description Routine 


If no valid PCB address is provided, 
abend code *476’ is returned. The 
JCB and PCB are updated and the 
second part of the level tables 
cleared. 


If no I/O area is provided, ‘AB’ 
' Status code is returned. 


If log is not active, return to caller 
with ‘XH’ status code in the PCB. 
The function call is ignored. 


Purge all buf fers. DLZDLAO1 
All SSAs in the call are checked. 


Key checking is done for load mode 
and the last SSA of an ISRT call. 
For PROCOPT=LS and for HISAM, 
the root key is compared to the 
previously loaded root. Status code 
“LB’ indicates invalid sequence. 


Sensitivity checking is done for 
ISRT, DLET, and REPL calls. 
Violations return ‘AM’. Extra 
checking is done for DLET and 
REPL calls, if successful GH call 
was executed before ‘DJ’ status. 
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Extended Descri 





DLZDLAOO 


tion Routine Label 





For variable length segments, 2-byte 
field in the user I/O area is compared 
to the maximum length and to the 
key+ keyoffset. If it is greater or 
smaller, ‘V1’ status is returned. 


When the data base that the PCB 
references is not open, DLZDLOCO. 
is called to open all data bases 
related to this PCB. 


A. If field level sensitivity indicator is 
set, exit is made to DLZCPY 10 to 
map the user view to the physical 
view. Only done if ISRT, REPL, or 
Retrieve (called on behalf of ISRT) 


action modules will be executed. 


For GET calls, DLZDLROO is called. 
For DLET/REPL calls, DLZDLDOO 
is called. For ISRT/ASRT calls in 
load mode, DLZDDLEDO is called 

for all segments except for HIDAM 
root, where DLZDLROO is called. 
For ISRT not load mode, 
DLZDLROO is called for all 
segments except HISAM root, 
where DLZDDLEO is called. 


~ 


—~ 


Figure 2-8.2. Call Analyzer — Validate SSAs (Part 1 of 2) 




























INPUT From Figure ga PROCESS OUTPUT 
2-8.1 Step 4 
SSAs SDB 
fae ee 1. Find SDB corresponding to SSA. 
eam A. \f SDB has field level sensitivity, JCB 
ji _ set indicator in JCB. 
SDB 
—-f-: 
Level Table oe 2. Find corresponding level table. 
cover Teor --|--4"—- 3. Fill pseudo entries for gaps in Eevgl:2 pls 
: SSAs. 
! 
; 
— 4. Fill level table with data from 
SDB. 
5. Validate command code. Level Table 
6. For qualified SSAs: 
Figure 2-8.2 (Part 2 of 2) 
Return to 
Figure 2-8.1 
Step 5 
DLZDLAOO — Call DLZDLAOO 
Extended Description Routine Label Extended Description Routine Label 


5. Valid command codes are C, D, F, L,N, NOTDORR 
Q, T, and X. The status code for invalid 
command code is ‘AJ’. For D call and 


se or D call a 
A. Flag SDBELS is on in field SDBXFL Pog se neltyetie atau ane 


if SDB has field level sensitivity. 
Flag JCBFLS is set on in field 
JCBLVT to indicate at least one 
segment in call has field level 
sensitivity. 


1. When the segment nained specified in 
the SSA cannot be found in the SDB, 
‘AC’ status is returned. 


2. When a hierarchy error is detected, an 
‘AC’ status is returned. 


. The levels corresponding to gaps in the 
SSAs are filled with data from the 
previous call. For loading, no parent 
level may be empty. “LD” status is 
returned. 


. Extra checks are made for DLET and 
REPL calls. When no GH call was 
previously made for this SDB, a “DJ’ 
status is returned. 
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Figure 2-8.2. Call Analyzer — Validate SSAs (Part 2 of 2) 


INPUT oo From Figure (™ PROCESS : - OUTPUT 


2-8.2. (Part 1 
of 2) Step 6 







P06 — — —}1. For qualified SSAs. _ | Level Table 
A. If SDB indicator set for field level ep |tevr3 





| Sec. Lists © 


aaa 


SDB 


B. Find FDB corresponding to SSA. Level Table 


. Encode operator. LEVMEMBR 


D. Load Mode: compare key in SSA to 
key - feedback. 


oO 


[F2. sensitivity, find FSB corresponding 4 ae 
! sensitivity, 
| : 

| 

| 
J 


SDBXFL 5 pa eee 







Return to 
caller 
SDBXPANS 
FSB 
\ 
DLZDLAOO — Call DLZDLAOO 
Extended Description. Routine Label Extended Description : Routine ——- Label 


1. For errors in qualification, format ‘AJ’ 
_ Status is returned. © 


A. Flag SDBFLS is on in field SDBXFL if 
SDB has field level sensitivity. If an 
FSB is not found, or if the FSB is not 
marked as an allowable field, status 
code ‘AK’ is returned in PCB. 


. Valid field names are any normal field 
of the segment, the XDFLD name 
(if the secondary processing sequence 
is used). For a c§ncatenated segment 
field, names of the logical child and the 
destination parent are valid. ‘AK’ 
status for invalidefield name. ‘AC’ 
status if /CK or /SX is used. 


. Invalid operator returns status code 
SAS’ 


. If qualified SSAs are specified for 
loading, the key has to correspond to 
the key-feedback area, otherwise ‘LD’ 
status code is returned. 


7 aN 
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Figure 2-8.3. Call Analyzer — Pseudo Function (Part 1 of 2) 


































INPUT PROCESS OUTPUT 
From Fig. 
2-8 Step 2B 
Baramasiae — — —-p 1. Fora GSCD call, provide address PSTBLKNM _ PSTUSER 
of PST and SCD. ; 
unction 
From Figure 
ee 2-8.1 Step 3B 
— — —¥f 2. Foran UNLD, TERM, or CHKP call, 
Lis process all PCBs in PSB and: 
A. Call DLZDDLEO for load. 
B. Clear flags and pointers. 
C. Call DLZDBHOO to purge 
buffers. 
D. Fora CHKP call, go to Step 4. 
For an UNDL call, DLZDLOCO is 
called to close data bases in 
system (PSTOCALL). 
7 —— —~ 7 3. Restore registers. 
‘Return to 
Caller 
DLZDLAO1 — Call DLZDLAOO 
Extended Description Routine Label Extended Description Routine Label 





1. Input to the GSCD call is function PSEUDOCA 
and I/O area address. DLZDLAO1 puts 
the SCD and PST addresses in 
PSTBLKNM.Program request handler 
moves it to the I/O area. 


3. If an error occurs during the purge 
of the buffers, an “XD” status code 
is returned in the PCB. 


: The TERM call is issued in online to 
end a task. The UNLD call is issued in 
batch to end the batch program. 


A. — If the UNLD call is made for load 
mode, DLZDDLEDO is called to 
write the last records for HSAM 
and HISAM. For HISAM and 
index data bases, a record is 
written with FF keys. 


Flags and pointers are cleared 

so that the PSB can be used by 
another task. If program isolation 
is active, clear all enqueue indi- 
cators in all level table entries. 


All user buffers are written to 
the data base now. RSTBLKNM, 
DMBNM, and ACBNM are 
cleared. PSTPGUSR flag of 
PSTFNCTN is set. 
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Figure 2-8.3. Call Analyzer — Pseudo Function (Part 2 of 2) 


INPUT 






PST 
PSTPSB 


PDIR 
PDIRSILA 


PSIL 
PSILDIRA 


DDIR — — 


DDIRCODE 


SCD pemees an 


SCDDBLOP 


PST 
PSTUSER 


PDIR 


PDIRSYM 






SCDREENT 
SCDDBFLW 


DLZDLAO1 — Call 


Extended Description 


All DDIR entries are scanned to 
see if an error occurred (bit 
DDIRNOSE X‘04’ in byte 
DDIRCODE set on) during purge 
of the buffers. 


If the log is the CICS journal, 
checkpoint record is not written, 
but a CICS synch point is. 


The DL/I Logger is entered 
twice; Ist to move the check- 
point record to its buffer, and 
2nd to force-write the check- 
point record. 


On return from the logger, the 
checkpoint indicator (bit 
PSTCHKP X‘04’ in byte 
PSTPCT2 is set on) to notify 
the program request handler to 
issue the checkpoint message. 





PROCESS OUTPUT 


4. For a CHKP call, get 
address of DDIR and 
number of entries. 


A. If error occurred during 
buffer purge, go to 
Step 4H. 


B. If log is CICS journal, 
go to Step 4E. 


C. Build the log checkpoint 
record. SCD 


D. Get address of DL/I Logger. 
2-16 
PST 
: L 
H. 





E. Set checkpoint indicator. 


PCB 


DBPCBSTC 


Set PCB status code. 
G. Return to Step 3. 
Set PCB error status code. 


1. Return to Step 3. 


DLZDLAOO 


Routine Extended Description Routine Label 











Status code of ‘blanks’ is set 
in the PCB indicating successful 
completion of the CHKP call. 


Status code of ‘XD’ is returned DDIRER 
in the PCB indicating an error 

occurred during checkpoint 

processing. 
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Figure 2-9. Retrieve (part 1 of 2) 


INPUT PROCESS OUTPUT 







From 
Analyzer 


DB/PSB 
Descrip. Position 


Vr 
=a 


. If unqualified call, go to step 3. Other- Status 
wise, go to Figure 2-9.1 to try to use i 
previous position. 


DePpca- | 
DMBSEC DSG 


Status 


DMB Info. 
Prefix 


. If GU with unqualified root, go to 
Figure 2-9.4 to determine start key for 
searching. Otherwise, go to Figure 2-9.5 
to analyze qualified calls and continue 
at step 5. 





JCB 
Prefix 


>3. If not a GN, go to step 4. Otherwise, do 
unqualified GN call analysis and continue 
at step 5. 


Prefix 


pop 


\l/ 


. Get first DB segment. 





DLZDLROO — Retrieve Module —  DLZDLROO 


Extended Description Routine Label Extended Description Routine Label 


1. I/O information: LTWSSA 


@ The Position block includes RBA of 
_ segment (HD) or Irec (HS), RBA of 
previous and next positions (HD), 
offset to segment from. begin lrec 

(HS), concatenated key, level, block 
- number (HSAM), and block number 

and RAP number of current RAP 

(HDAM). RAP = root anchor point. 


The DB/PSB Description block 
includes segment and data set 
descriptions, data base specifications, 
sensitivity, and HDAM randomizing 
facility. 


The Status Information block includes 
prior status codes, segment status, 

and (for output) pseudo abends 

(801 and 800). 


The Call Information block includes 
SSA and call type. 


Processing starts with initialization. 
Level of previous call stored in 
LASTLEV. 
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Figure 2-9. Retrieve (Part 2 of 2) 


INPUT 1 PROCESS OUTPUT 
DB/PSB | —— —y 5. For ISRT calls: 
: gad cen SDB 
A. Determine positioning Baan 
and move segment to user. for ineert; 


roa 
losc_ 
DMB B. Call DLZGETS (Fig 2-9.7) | PST 

to make retrieved data | 
~ available to user. »  & 


PSTSEGL 





Prefix 





6. Exit. 
Prefix 
To Analyzer 
or Load 
Insert 
DLZDLROO — Retrieve Module © DLZDLROO 
Extended Description Routine Extended Description Routine Label 





5. DLZSSA is called, if necessary, to find 
insert position for key. Control is then 
passed to DLZISRT to prepare position 

‘information in the SDB for INSERT. 
Return is to DLZGETS (Figure 2-9.6). 


PSTSEG is address of data, PSTSEGL 
gives its length. 


For IRST ealls DLZGETS does only 
housekeeping (no data moving). 
DLZGETS will pass control to 
DLZRETN and DLZDLR1 to exit. 


For a segment with logical relationship, 
DLZGETS will call DLZLOGR for 
data move/insert positioning. 


. If call type is GET, go to Analyzer. 
If it is ISRT, go to Load/Insert. 
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Figure 2-9.1. Retrieve —- DLZLTW Routine 
INPUT PROCESS OUTPUT 


From Fig. 
2-9 step 1 


1. Set KEEPIT=1. 





LEV — — > 2. Check previous call’s hierarchical 
Saaasa path against SSA‘’s. Loop through 
call levels. Check segment type, and for 
info. qualified SSA, check key feedback area 
(Figure 2-9.2). 
3. If path is accepted, locate previous R6 SDB 


segment (Figure 2-9.3), set KEEPIT=0, 
and go to step 6. LC] 


4. \f discrepancy at root level, set 
KEEPIT=0 and go to step 6. 





5. If discrepancy at lower level, set 
KEEPIT=0 and go to step 6. 


If GN call, position to previous 





segment. 
6. Exit. 
To Fig. 2-9 
Step 2 
DLZDLROO — Retrieve Module DLZDLROO 
Extended Description Routine Label Extended Description Routine Label 


1. KEEPIT=1 indicates: try to use 
previous position. KEEPIT=0 indicates: 
DLZLTW has been left. Other values 
have special meanings. (Entry point 
when R15 = 0.) 


5. Set exit code for entry SSAEVALL in 
DLZSSA. 


2. DLZKDTE is invoked via DLZSSA which 
is called by return to DLZDLRO and 
back to DLZLTW. Logically, this is part 
of DLZLTW as indicated by KEEPIT=1. 


Qualified SSA test: After entering 
several routines, return to DLZLTW 
entry LTWSSACA, LTWSSAF, or 
LTWSSAG. 


Lowest level found valid is stored in LTWSSACA 
JCBLEVIC. 


. Set code for exit: Entry UNQLA in 
DLZSSA for GU or ISRT, entry 
SSAEVALH for GN. 


DLZPCHK loads buffer location of 
previous segment into register 6 (except 
for HD or GN calls) and, for HD, loads 
available SUBPOSN positions. 
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Figure 2-9.2. Retrieve —-DLZKDTE Routine 
INPUT PROCESS OUTPUT 
From Caller 


lj 
an 


. Find FDB for SSA field. If 


General Segment 


Info. Info. found, continue with step 2. 
if not found, set status code | PCB 


| sop 
-—, "ome | AK (error in call) and return. 
e 





FDB 
2. If KEEPIT=1, use key feedback LEV 
area to test against field | flevr2 | 
value in SSA. Otherwise use 
segment. 
Field Segment > 3. If necessary turn on LEVSTOP. Ris 
Value Data | [ 
Lo | | 
y L > 4. Test segment or key feedback 
ei. 
Gaeratee area for acceptance. 3 
R15= 
LEVMEMBR 
To Caller 
DLZDLROO — Retrieve Module DLZDLROO 
Extended Description Routine Label 





Extended Description Routine 


2. If logical relationship, build concate- 
nated segment. If variable length, 
build data. | 


. If qualification is on key, relational 
operator is greater than or equal to, 
and key is less than or equal to, SSA. 


. If accepted, R15=0, otherwise, 
R15=4. 
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Figure 2-9.3. Retrieve — DLZPCHK Routine 


INPUT From Caller PROCESS OUTPUT 
SDB LEV = Oe > 1.1f GN call, HD: 
[ ia Move SDBPOSC to CURTTR and go JCB 
| to step 3. 
Ls & 2. Position to segment: 


R 
LEV — — —5 A. Interface to Buffer Handler, i 
utrer 


B. Find SDB from segment code. 
C. Get pointers from segment. 


3. Exit 





To Caller 


DLZDLROO — Retrieve Module DLZDLROO 


Extended Description Routine Extended Description Routine | Label 


2. For HSAM, more than 1 PCB: restore 
position. 
For HISAM: take care of control 
interval splits. 


B. If not found (segment not 
sensitive), turn on LEVDLET and 
go to step 3. 


. For HS, relational record number 
and offset to SDBPOSC. SDBPOSN 
already posted by DLZSETL. 


For HD, post twin pointers. 


Clear dependent positions 
(SUBPOSP, SDBPOSC, and 
SDBPOSN). For HD, post child 
pointers. 


For HD logical relation with 
inverted structure, post child 
pointers. Subroutine called by 
DLZPSTA. 


Clear SDBPOSP, SDBPOSC, 
and SDBPOSN in preceding sibling 
SDBs unless multi-processing. 
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Figure 2-9.4. Retrieve —-DLZTAG Routine 


INPUT From Fig. PROCESS OUTPUT 
2-9 Step 2 . 


Segment : — 5 fo 7 
& Field 1. If qualification is on key 


Info. and operator is greater than. 


lpme | or equal to SSA, position on 
key required. 
2. For GN, go to step 4, otherwise, 


position on start of DB. 





3. Interface to Buffer Handler R6 


and HSAM 1/0. | i=ss- 
Geum) | 01208100 


DB Buffer 


Handler 
2-15 





4. Exit. 





DLZDLROO — Retrieve Module DLZDLROO 


Extended Description Routine Extended Description Routine Label 


1. Set code PSTSTLEQ for DLZSETL. 
Set exit code for entry SSAEVAL 
in DLZSSA. 


. Set code PSTSTLBG for DLZSETL. 
Set exit code for entry SSAEVAL or 
SSAEVALM in DLZSSA. 


For GN, set exit code for entry 
SSAEVALM in DLZSSA. 


. DLZSETL branches to subroutines 
according to DB organization. R6 
points to segment in buffer pool. 
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Figure 2-9.5. Retrieve — DLZSSA Routine (Part 1 of 2) 





INPUT PROCESS OUTPUT 
First Part > i iti 
OL EN . If SSA is unqualified, go to 
a step 4. 
Position 
& status 
conditions 
4 . Go to DLZKDTE routine (Fig 
in pre- 2-9.2) to check acceptability 
vious or of a segment. 
current 
call! 
3. If segment is not accepted, 
go to step 9. 
Second Part 
of LEV 
SSA descripti 
set eas et 4. Update level table. a ohas 
ANALYZER et 
Description 
5. Go to next lower level. of last 
acceptable 
segment 
: including its 
6. If level is not qualified, hierarchical 


go to step 10. par 





7. Go to DLZSKPG routine (Fig 
2-9.6) to skip segments. 


8. Go to step 1. 


DLZDLROO — Retrieve Module — DLZDLROO 


Extended Description Routine Label Extended Description Routine Label 


6. Prepare input (segment type, etc.) SKIPGENS 
before entering the central 
DLZSKPG routine. 





Licensed Material - Property of IBM 2-93 


Figure 2-9.5. Retrieve — DLZSSA Routine (Part 2 of 2) 
INPUT PROCESS OUTPUT 


First part ee Fe ee ‘ 
of LEV. 9. Segment is not acceptable. 


Position and A. If LEVCONT is on and not 


status 
conditions at root level, go to Step 9E. 


set by RETRIEVE 
in previous B. If LEVCONT is on and at root 
or current call _ level, go to Step 9D. 





C. If current level is root, 
exit to subroutine DLZGER. 


Otherwise, back up one level 
and return to Step 9A. 


D. Get next root segment. 


Interface to 


buffer handler 
and HSAM 1|/O 





E. Goto routine DLZSKPG (Fig 
2-9.6) to skip to next segment 
of same type under present 
root. 


F. Return to Step 1. 


10. Exit. 





Return to 
Caller 


DLZDLROO — DLZSSA Routine DLZDLROO 


Extended Description Routine Label Extended Description Routine 
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Figure 2-9.6 Retrieve — DLZSKPG Routine 


INPUT From Caller jas PROCESS OUTPUT 
R15 b 1°L: ’ . 
— << > 1. If ‘Skip to Next’ option, go to step 3. 
2. Prepare control input. JCB 
SDB — —p3. Skip to next segment. 
4. If skip failed, go to step 8. 
5. If ‘Skip to Next’ option, test if segment is 
sensitive. 
JCB If not sensitive, go to step 3. 
JCBCODE, 
bit 6. If ‘Skip to Next Segment’ option, test 


JCBROREQ segment level and segment code. 





If accepted, go to step 8. 


7. If position still before segment searched, 
go to step 3. Otherwise, indicate failure. 


8. Exit. 


Return to 
Caller 


DLZDLROO — Retrieve Module DLZDLROO 


Routine Label Routine Label 


Extended Description 


1. Option is ‘Skip to Next Segment’ if R15 
is positive. If R15 is negative, the option 
is “Skip to Specified Segment’. 


2. If JCBLVT = X‘02’, require segment SKIPGENS 


code, segment level in physical DB, and 
parentage level. 


3. For JCBRDREQ off, current segment 
is examined first. 


DLZSKPS calls general skip routine 
DLZSKPE, which calls specific skip 
routines: 

For HS, DLZSKPD. 


For HD using SUBPOSN, DLZSTLA. 


In some cases (HS, skip to first child of 
current segment), DLZSKPD is called 
directly from DLZSKPS. 


4. End of ESDS chain reached for HISAM. 





Extended Description 


7. If segment code of segment found is not 
larger than that required. 


Licensed Material - Property of IBM 2-95 


Figure 2-9.7. Retrieve -DLZGETS Routine | 
a PROCESS =— : 7 OUTPUT 











INPUT From Figure 
2-9 Step 58 
1. Turn on LEVDATA. Turn on LEV 
LEVHELD if Get Hold call. 
LEV 2. Save lowest level number. ice 


LEVLEV 


KEEPIT+2 


3. If logical relationship, call 
DLZLOGR (Fig. 2-9.8) to build 
concatenated segment. 


DMB 


4. If variable length segment, 
build/expand segment. 


5. If field level sensitivity specified, 
call DLZFLDO to build user view. 


SDB 
SDBFLS 


6. Move segment to !/O area and give PST 1/O Area 





segment location and length. 
segment in g g PSTSEG 


buffer pool 


PSTSEGL 





7. Do final housekeeping. 


| | 8. Exit. 
Return to 
Analyzer or 
Load/Insert \ 
DLZDLROO — Retrieve Module | DLZLDROO 
Extended Description Routine Label _ Extended Description | Routine Label 


6. If batch, only one task active, or no 
field level sensitivity specified, and if 
segment is fixed length and not involved 
in logical relationship, segment data is 
not moved (left in buffer pool). The 
same is true for Insert calls. 


For a path call (*D command), data has 
already been moved in DLZUPDT and 
is not moved here. 


Address of I/O area is PSPBIOAWK. 


7. For Insert calls, return is to Load/Insert. 
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Figure 2-9.8. Retrieve -DLZLOGR Routine 


INPUT PROCESS OUTPUT 






From Caller 


1. For ISRT call go to step 6. 
PSDB SDB 


ae 


logical child TCC ~——t««wy Mie logical child. 
data in buffer PSBIOAWK 


work area 


. for concat. 
3. If not a variable length segment, seninent 


go to step 5. data 





4. Expand segment. 


5. Move destination parent 





data. 
——— 6. Call DLZRETI (Fig 2-9.9) to 
[ SDB (of | insert positioning for logical 
logical H 
child) child. 
7. Exit. 
To Caller 
DLZDLROO — Retrieve Module DLZDLROO 
Extended Description Routine Label Extended Description | Routine Label 





1. Destination parent concatenated key DLZYENT 
and logical child data. 


6. Destination parent exists. Position 
segment on alternate twin chain. 
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Figure 2-9.9. Retrieve —- DLZRETI Routine (Part 1 of 2) 
INPUT PROCESS OUTPUT 
From Caller 











LEV ——--— -— 1. Retrieve destination parent peciOawk 
SDB (of LEVUSEOF ‘using concatenated key. SeeiGn 
logical 
child) parent data 
PSBIOAWK 
logical 
child data 
including 
concaten. 
key 
— —— -—> 2. If virtual logical child, go 
BSB to step 4. 
secondary 
lists 
3. Find pointer number and go to 
step 5. 
4. Get pointer numbers. 
5. Get pointers from destination 
destination parent. 
parent in 
buffer 
6. If no key and rule ‘FIRST’, 
go to exit, step 8. 
DLZDLROO — Retrieve Module DLZDLROO 
Extended Description Routine Label Extended Description . Routine Label 





1. LEVUSEOF indicates offset of key for 
this level in concatenated key. 


Destination parent data is stored DLZRETK 
behind concatenated key and logical 
child. 


. For virtual logical child (insert through 
logical path), positioning on physical 
twin chain is required. 


. Find logical twin pointer number. 
Find logical child first and last pointers 
in logical parent. Find FDB for key of 


logical child, if present. 


. Find physical twin pointer number. 
Find physical child first and last 
pointers in parent. Find FDB for key 
of virtual logical child, if present. 


Logical twin key is moved to key 
feedback area. 
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Figure 2-9.9. Retrieve — DLZRETI Routine (Part 2 of 2) : 
INPUT PROCESS OUTPUT 


7. Follow alternate twin chain | 
until key (if present) larger 
than key of inserted segment, 
or to end of chain. Go to 
exit, step 8. 


Special case: matching key 
found in chain: 


A. Key unique: If segment de- 
leted logically, go to 
exit, step 8. Otherwise, 
set status code ‘II’, and 
go to exit, step 8. Hepes 


DBPCBSTC 


B. Key not unique: If rule is 
‘FIRST’, go to exit, step 8. 
Otherwise, follow twin 
chain until larger key is 
found or to the end of 
chain. 


8. Exit. 





Return to 
Caller 





DLZDLROO — Retrieve Module | DLZDLROO 


Extended Description Routine Label . Extended Description Routine Label 





7. Alternate means: Logical twin chain RETISRTL 
if entering from physical path, 
physical if entering from logical path. 


If sequence field is in destination 
parent concatenated key (possible 
only for virtual logical child), the 
virtual area (physical parent, 
concatenated key, and logical child 
data) is built in PSBIOAWK, calling 
routines DLZYSTC and DLZMOVA. 
As an indication, the first byte of 
PSTWRKTS is set to X°FF’ 


A. For logically. deleted segment, 
turn on bit JCBDEFDL in 
field JCBCODE. 
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Figure 2-9.10. Retrieve —- DLZFLDO Subroutine 
INPUT PROCESS 


From Figure 
2-9.7 Step 5 


OUTPUT 
FER 


1. Initialize field exit routine interface list. 


al 


SDB 
”-—_— = => 2. If concatenated segment, update FER. FER 

| _— a 
PSDB L 3. If segment is variable length, update FER. 
—--4-- ren 


ER 4. Call DLZCPY 10. 3 FERPPSA 


i 
| 


1/O Area 


Return to 
caller 
PLZDLROO — Retrieve Module | | DLZDLROO 
Extended Description . Routine Label Extended Description Routine Label 


1. FER is located at address in PSBNDXWK. 


2. The concatenated segment has been built FLDCSEG 
_ in PSBIOAWK and the user’s view must be 
constructed in another area (PSBXIOWK). 
For path calls (*D command), the user’s 
view will be moved back to PPBIOAWK 
after conversion to the user’s view. 


. Fields may be defined that are outside the 
physical segment, so they must be 
defaulted so conversion errors do not 
occur. If such fields do exist, the segment 
is moved to PSBXIOWK and the defaults 
provided. 


. If a conversion error is detected, an 
immediate exit to the Call Analyzer is 
taken. | 
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Figure 2-10. Load/Insert (Part 1 of 2) 
INPUT PROCESS OUTPUT 


From Caller 
(See Note) 









DL/! Ctrl DL/I 
~ Blocks Buffer 


| | 


DL/I Ctrl User 1/O ——- ooo ge 
Blocks Area T 1. Initialize. 


| is 
LMR 2. Call subroutine depending on 


t—_____t data base and ‘PROCOPT’: 













(ame) HSAMLOAD 


HSAM Load 
2-10.1 
DFSDHILO 


HISAM Load 
2-10.2 


HIHSRTRO 


-HISAM Root 
Insert 











(my 


2-10.3 


<=> HUSRTR 


HiSAM Depen- 
dent Segment 
Insert 





2-10.4 


DFSDHDLO 


HDAM/HIDAM 
Load 
2-10.6 


DLZDDLEO — Load Insert Module DLZDDLEO 


Extended Description Routine Label Extended Description Routine Label 





Note: DLZDDLEDO is called from 
DLZDLAOO (Call Analyzer) or from 
DLZDLROO (Retrieve Module). 
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Figure 2-10. Load/Insert (part 2 of 2) 
INPUT PROCESS OUTPUT 


2. (con't) 





HDAM/HIDAM 


Not Load 
2-10.7 


DFSDNXTO 
Not Load End- 
ing Routine 
2-10.8 


HHSNXLV 


Load Ending 
Routine 
2-10.9. 















4. Return 
Return to 
Caller (See 
Note) 
Extended Description |. “ts Routine — Label Extended Description | — Routine ... Label 


Note: DLZDDLEDO is called from 
DLZDLAOO (Call Analyzer) or 
from DLZDLRO0 (Retrieve 
Module). 
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Figure 2-10.1. HSAM Load 


INPUT PROCESS OUTPUT 
From Fig. 
2-10 Step 2 


[scarsaop _|— — 4+- — — +4 12. On first entry, initialize 


DTF and I/O buffer address. 


OTF LODBLOCK 


2. Issue locate mode ‘PUT’ when LODBLOCK 


record is full. 





LODBLOCK 3. Move segment to I/O area 1/O Buffer 


and update tables. 


a= DFSDLIMS 








4. For UNLD call, issue last 
‘PUT 


LODBLOCK 





To Fig 2-10 
Step 3 


DLZDDLEO — HSAM Load DLZDDLEO 





Extended Description Routine Label Extended Description Routine Label 





1. DLZDLOCO stores the I/O area address HSAMFRST 
in the JCB. It is updated with every 
‘PUT’ 


The record size is taken from the DTF 


and the error exit address in the DTF 
is updated. 
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Figure 2-10.2. HISAM Load 


INPUT : PROCESS = — OUTPUT 
From Fig. 


2-10 Step 2 


JCB | | | 
JCBPRESF on 1. 
LODBLOCK — — -6 A. Root segments: JCB 











LODOFFSE Write previous KSDS record 
LODOFFSET 
A] LoDLREcL and get buffer for new one. 
DMBPRSZ LODBLOCK = B. Dependent segments: 
mihed hited If no more space in ESDS, 
LODLRECL write previous ESDS and 
get buffer for new one. 
2. Move segment to buffer 
saa DFSDLIMS 
ucs = — —-y, 3. UNLD call: 
LODBLOCK . 
Write previous KSDS and ESDS 
LODOFFSET : 
record. Write new KSDS record 
LODLRECL | . with root key of ‘FF’s. 
To Fig 2-10 
Step 4 
DLZDDLEO — HISAM Load DLZDDLEO 
Extended Description Routine Extended Description Routine Label 





. 2. The segment is moved, the PCB key 
Record length, buffer address, WRITEOLD fed back, and the level table updated. 
and offset into buffer is stored 

in the JCB and passed from call 


to call. 


When a call for a new root seg- 
ment is made, the buffer handler 
(DLZDBHO00) is called to write 
the previous KSDS record and 
to get buffer space for the new 
one. 


If there is space left in the ESDS_ |NEWRBA 
records, continue with step 2. 

Otherwise, the RBA of the next 

ESDS record is calculated, the. 

pointer of the current ESDS 

record updated, and the buffer 

handler called to write the ESDS. 

Another call to DLZDBHOO0 is 

made to get buffer space for a 

new ESDS record. 


ABEND 855 is given if VSAM 


returns an RBA different from 
the calculated one. 
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Mae. 


Figure 2-10.3. HISAM Root Insert (Part 1 of 2) 


INPUT eS eeaeia: PROCESS OUTPUT 


2-10 Step 2 








PST 1. Call DLZDBHO0 to get segment 
with key EQ or HI. Record 
PSTDATA 2. If key of returned segment is : 
DB LEVTAB 
ACB EQ, update SDB and level a ae 
table. If it is not EQ, go to 
oe 
3. Return II status when segmen DBPCB 
was not deleted. 
Otherwise, log old segment. 
eam DLZRDBLO 
DB Logger 
2-16 





VO Area 4. Move segment and update PCB KSDS PCB 
| | and level table. Record [| 


5. Indicate only one segment in 
record and log new record. 


DLZDDLEO — HISAM Root Insert DLZDDLEO 


__ Extended Description Se Routine Label Extended Description Routine Label 





. The buffer handler is called with OTOFUNC|HIISRTRO 
‘PSTSTLEQ’ to get a segment with 
key equal or higher than the one to 
be inserted. 


. If the key returned is higher, ISISO15 
processing continues with step 7. 


. When the delete flag is not on in the 
segment returned, status code ‘II’ is 
returned to the caller. 


The data base log module is called to ISSDELET 
log the old KSDS record. 


. The new root segment is moved to the 
KSDS record. The PCB key feedback 
area and level table are updated. 


. The pointer to the ESDS record is 
cleared and ‘00’ moved to the KSDS 
record behind the root segment. The 
data base log module is called to log 
the new KSDS record. 
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Figure 2-10.3. HISAM Root Insert (Part 2 of 2) 


INPUT PROCESS : OUTPUT 


6. Write record block. 


PSTFNCTN 7. 


1/O Area 8 


10. 


. Move segment, update PCB and 


level table. [J 
— 
. LOG THE NEW RECORD. | 
Call DLZDBHOO to write the 
new KSDS record. 7 


Call DLZDBHOO to get buffer PSTDATA 


space for KSDS record. [ 


Buffer 








11. Update tables. SDB LEVTAB 
To Fig 2-10 
Step 3 
DLZDDLEO ~— HISAM Root Insert DLZDDLEO 
Extended Description Routine | Label Extended Description Routine Label 


6. The buffer handler is called to write 
the KSDS record back (PSTBFALT). 


7. The buffer handler is called 
(PSTGBSPC) to get buffer space 
for one KSDS record. 


10. PSTPUTKY is used to write the new. 
KSDS record. 
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7 


Figure 2-10.4. HISAM Dependent Segment Insert 
INPUT PROCESS OUTPUT 


From Fig. 
2-10 Step 2 











PSTBYTNM 
PSTWRKT1 
PSTWRKT5 





sean t —_— > 1. Log old record. 





‘SDBPOSC 
SDBPOSN 


Buffer DMB arse 2. Compute length of shift data a ABEND 
[ [ and check rest of records for ‘861' 
| valid segment codes. ; 





3. Move shift data and new seg- 
ment. 


Figure 2-10.5. 


4, Log record. 
em) DLZRDBLO 


DB Logger 
2-16 


5. Correct position of other SDB LEVTAB 
users of same data base. 





6. Write one, two, or three 
records. 





To Figure 2-10 
Step 3 





DLZDDLEO — HISAM Dependent Segment Insert DLZDDLEO 


Extended Description Routine Extended Description Routine Label 








. DLZDLROO has located within a KSDS 
or ESDS record; where the new segment 
has to be inserted. The old record is 
logged from insert point on to the right. 


. The record is inspected from the insert 
point to the right. The segment code 
is checked and the length of the remain- 
ing segments is added to give the 
‘shift data’. 


. Log the old record from insert point 
to the right. 


. SDBs and level tables of other PCBs 
that are positioned in the same record 
are updated to show the shifted position 
of the segments. 


. DLZDBHOO0 is called to write back the 
old record and to write one or two new 
ESDS records. 
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Figure 2-10.5. NOTSC Routine (Part 1 of 2) 


INPUT . PROCESS OUTPUT 
From Fig. 
2-10.4 


Step 3 


old record: 


1/O Area 


A. Move ‘shift data’ right. 





B. Move segment to buffer and 
update tables. 


mi > 1. Segment and shift data fit in 
LL 


? 2. Segment fits in old record ; 


but not shift data 


A. Calculate RBA of new ESDS 


record. 





B. Get buffer space for one 
ESDS record. 


C. Chain old and new record 
and log chain. 


D. Move ‘shift data’ to new 
ESDS record. 


E. Log new record. 


F. Move.segment to old record. 


DLZDDLEO ~ HISAM Dependent Segment Insert DLZDDLEO 


Extended Description Routine Label | 






Extended Description _—_— Routine Label 









1. When both -the new segment and the IDFSDLIMS |OVERLAPL 
shift data fit in the old record, the 
shift data is moved right by segment 
length. The segment is moved to the 
record and the PCB and level table are 
updated. 


2. Anew ESDS record has to be built. 
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Figure 2-10.5. NOTSC Routine (Part 2 of 2) 
INPUT PROCESS OUTPUT 


to new ESDS. 


A. Calculate RBA of new ESDS 


record. 


VOArea DMB — — > 3. Move segment and ‘shift data’ 


B. Get buffer space for new 
ESDS record. | 


C. Chain the two records and 
log the chain. 


D. Move segment to new record 
and update records. 


E. Move ‘shift data’ to new 
record. If it does not fit, 
repeat step 3 A, B, and C. 


F. Log one or two new ESDS 
records. 


Se) DLZRDBLO 


DB Logger 
2-16 





To Fig 2-10.4 
Step 4 


DLZDDLEO — HISAM Dependent Segment Insert DLZDDLEO 


Extended Description Extended Description _ Routine 


3. Neither segment or ‘shift 
data’ fit in the old record. 
A new record has to be 
built. If it does not have 
room for the segment and 
‘shift data’, another new 
ESDS record has to be built. 
The records are chained and 
logged. 
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Figure 2-10.6. HDAM/HIDAM Load (Part 1 of 2) 









INPUT om Fia. PROCESS 
2-10 Step 2 
pe —_— > 1. Get real length of segment. 
=m 
Deal with 
Variable 
length segment 
ee 2. Simulate retrieve positioning. 
al > 3. If segment is present, replace 
it. Otherwise, get space for 
segment. 
GHD) bi 201050 
HD Space 
Management 
2-13 
4. Update anchor point in HIDAM 
and log change. 
1/O Area JCB 
TY SSCSCSCTSTTCTCSCS CSS. Move segment to buffer and 
update tables. 
SDB 
Ee Ca oesouiws 


DLZDDLEO — HDAM/HIDAM Load 


Extended Description 


. The subroutine VLDSEG takes the 
length from the PSDB for fixed 
length segments and from the user’s 
I/O area for variable length segments. 
The compaction exit routine is called, 
if it exists. 


VLDSEG 


ABEND ‘863’ is given when the com- 
paction routine changes the sequence 
field. 


. For HIDAM root segments, DLZDLROO , 
did the positioning. For other segments, 
it is done here. 


TOSPACE 


. Space management is called to get 
space for the segment. If the segment 
was deleted in one path only, i.e. it 
was not removed by DLZDLDOO, the 
segment is replaced with the new data. 


. HIDAM root segments without PTB 
pointers are chained off the anchor 
point in chronological sequence. 


. Move segment to buffer, update PCB 
key feedback, and update level table. 
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OUTPUT 


SD 


PST 
PSTWRKD5 


aa 


PSTDATA 
PSTOFFST 
PSTWRK1 


SDB 
PST 










B 1/0 Area 


SDBPOSC 


LEVTAB 


a 





DLZDDLEO 





DBPCB 


Figure 2-10.6. HDAM/HIDAM Load (Part 2 of 2) 
INPUT PROCESS OUTPUT 









a > 6. Update prefix. 
PSDB | 7. Log inserted segment. 
a | = 
. ep 
SDB = | 
DB Logger 
| 2-16 
L_- —B 8. Update prefixes of parents and 
twins. Update HIDAM root 
anchor points and log the 
changes. 
To Fig 2-10 
Step 3 
DLZDDLEO — HDAM/HIDAM Load DLZDDLEO 
Extended Description Routine Label Extended Description Routine Label 





6. The pretix of the segment is updated: 

physical twin pointers, physical parent 
pointer, logical parent pointer, and 
logical twin pointers. 

. The data base log module is called to 
log the inserted segment. 

. Call space management (DLZDHDSO) {TOSPACE 
to update the prefix of physical twins, |UPPARENT |BITMAPOK 
logical twins, physical parents, and UPPREFIX IHDDANCOR 
logical parents. Update anchor point 
for HDAM root segments and call the 
data base log module to log all changes. 
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Figure 2-10.7. HDAM/HIDAM Not Load (Part 1 of 2) 7 
INPUT PROCESS OUTPUT 


From Fig. 
2-10 Step 2 
(See Note) 
DMB — — —> 1. Get real length of segment. PST 


PSTWRKD5 


VLDSEG 


Process Vari- 
able Length 
Segment 





PST — _ ——— 2. If segment is present, replace | PST 


7 
it. Otherwise, get space for PSTDATA 


PSTOFFST 


segment. 


PSTWRK1 





[== DLZDHDSO | 


HD Space 
Management 
2-13 





3. Update anchor point in HIDAM 
and log change. 


1/O Area 


Buffer SDB 
4. Move segment to buffer and 


update tables. LEVTAB 
DBPCB LEVTTR 





DLZDDLEO — HDAM/HIDAM Not Load DLZDDLEO 


Extended Description Routine 


Label 


Extended Description Routine 





Note: When this entry is used, DLZDLROO 
had done the positioning. 


2. Space management (DLZDHDSO) is TBSPACE 
called to get space for the segment. If 
the segment was deleted in one path 
only, ie. it was not removed by 
DLZDLDOO, the segment is replaced 
with the new data. 


. HIDAM roat segments without PTB 
pointers are chained off the anchor 
point in chronological sequence. 


. Move segment to buffer, update PCB |[DFSDLIMS 
feedback and the level table. 
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Figure 2-10.7. HDAM/HIDAM Not Load (Part 2 of 2) 
INPUT PROCESS OUTPUT 








[— » 5. Update prefix. 
PSDB 6. Log inserted segment. 
Cl | butter 
(a=) 
SDB 
| 2-16 
L_ _§ 7. Update prefixes of parents 
and twins. Update HIDAM root 
anchor point and log the 
changes. 
To Fig 2-10 
Step 3 
DLZDDLEO — HDAM/HIDAM Not Load DLZDDLEO 
Extended Description Routine Label Extended Description Routine Label 





5. The prefix of the segment is updated: 
physical twin pointers, physical 
parent pointer, logical parent pointer, 
and logical twin pointers. 

. The data base log module is called to 
log the inserted segment. 

. Call space management (DLZDHDSO) 
to update the bitmap if required: 
update prefix of physical twins, 
logical twins, physical parents, and 
logical parents. Update anchor point 
for HDAM root segments, call the 
data base log module to log all changes. 
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Figure 2-10.8. Not Load Ending Routine 


INPUT PROCESS 

| From Fig. 

2-10 Step 3 
fomarLac |— —|— — -> 14. call DLZDXMTO if segment is 
indexed. 

!soprLaG | ones crea 2. If segment was LP, insert LC 

: now. 
LEVTAB . 

—- 3. For LC segments: 
Sec List Replace data of LP if it was 


not inserted before. 


PSTUSER 


LEVTAB = =< P 4. For PATH ISRT, insert next 
| segment. 





5. Clean up and return. 


DLZDDLEO — DFSDXNTO Ending Routine for Not Load 


Extended Description Routine Label Extended Description 


1. Index Maintenance is called to build 
the primary or secondary index for 
an index source segment. 


. If the ISRT call was for a concatenated INXTLEVIS 
segment, the destination parent was 
inserted first (if it did not exist before 
the ISRT call). The next step is to 
insert the logical child segment. The 
insert process is repeated from Fig- 
ure 2-10 step 2. 


. If the ISRT rule of the destination 
parent is virtual and this segment 
existed already, then the data of the 
destination parent is replaced. 
DLZDXMTO is called to replace the 
index if the destination parent is an 
index source segment. 


. If there are more segments to be 
inserted in a PATH, then point to the 
next segment in the I/O area and 
continue with Figure 2-10 step 2. 
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To Fig 2-10 
Step 4 


OUTPUT 


LP-SEGMENT 


PSTUSER 


PSTSEG 


00000000 00000000 


PSTSEGL 


00000000 


DLZDDLEO 


Routine 


R15 





Label 


Figure 2-10.9. Load Ending Routine 
INPUT PROCESS OUTPUT 


From Fig. 
2-10 Step 3 


= + Y 1. Write work data set for LC Lestwaki _] 


and LP segments. 
2. Build index for index source 
statement. 


SDB 


PSDB 





ISRT. 


LEVTAB ato 3. Load next segment for PATH 





4. Call DLZDXMTO for UNLD call. 


5. Clean up and return. PSTSEG R15 


00000000 00000000 


PSTSEGL 


00000000 
To Fig 2-10 


Step 4 





DLZDDLEO — HIISNXLV Ending Routine Load Mode DLZDDLEO 


Extended Description Routine Label Extended Description Routine Label 





1. If the segment just loaded was a 
logical child or a logical parent 
segment, DLZDSEHO is called to 
write the work data set. If opening 
of the work data set fails due to 
‘ASSGN SYSO013,IGN’ and the segment 
was an LP, processing continues. On 
any other open failure, ‘ABEND 864 
is given. 


. If the segment is an index source 
segment, DLZDXMTO is called. It 
writes the work data set or writes the 
index pointer segment directly. 


. For PATH ISRT, the pointer to the 
I/O area is updated and processing 
continues with Figure 2-10 step 2. 


. DLZDXMTO is called to inspect all 
PSDBs of the DMB for index source 
segments and builds an FF key index 
pointer record for it. 
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Figure 2-11. Delete/Replace 
INPUT PROCESS OUTPUT 


From Fig. 
2-8.1 


User 


1/0 Area DBPCB PY __ > 1. Initialize addresses. 





JCBPRESF | = a 2. If call is REPL, 









REPLACE 


Process 
Replace 
2-11.1 


3. If call is DLET and data base 
is HISAM 


I 


I 


DLETE 


Process HISAM 
Delete 







2-11.4 


4. If call is DLET and data base 
is HDAM or HIDAM 


(mm | cet THO 


Process HD/HID 
Delete 






2-11.5 


5. Return to DLZDLZO0 with R15 


return code in register 15. 


_DLZDLDOO — DLET/REPL Module DLZDLDOO 


Extended Description Routine Label ‘Extended Description Routine Label 











1. The segment to be deleted or replaced |DLZDLDOO |DELREPEP 
is identified by the contents of 
JCBLEVIC. Position is established by 
DLZDLROO in the previous call. 


. If a user error occurred, DBPCBSTC 
has return code. If abend, PSTERCD1 
has abend code and registers are saved 
at SCDABSAV + 8. 
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Figure 2-11.1. Replace 








PSTUSER 
A (I/O Area) 


user segment 





DLZDLDOO — DLET/REPL Module 


Extended Description 





l. 


2. PSTUSER will have new value if path 
call had been made. The length is taken 
from the first two bytes of the I/O 
area if segment is variable length. 


. Additional logic is needed if segment 
is variable length or if PROCSEQ is 
specified. 


. A. The following check is made 
for the LC: 


Neither the physical nor logical 
key fields can be changed (DA 
status). 


The following checks are made for 
the destination parent: 


a) If data didn’t change, no replace. 


Routine Label 


INPUT PROCESS OUTPUT 
From Fig. 
2-11 step 2 
(REPLACE) 
1. Ensure that key field has 
noe poem changed: PSTUSER UDLENGTH 
PSTUSER 
A (1/0 Area) DMBDL 
[ T TTTTCS™S™stSCa2. Set address, length, and UDOFFSET _ _DBOFFSET 
LEVUSEOF offset of segment. offset in offset 
user area in 1/0 
Buffer 
ALTKYADJ 
adjust- 
PSTUSER Buffer 3.E d h dandk ment for 
. Ensure data changed and key srceeate 
[| ee tel field not changed. key 





4. |f segment is an LC, 


A. Ensure LC can be replaced. 


B. If data changed: 


DOREPL 
Replace LP 







Buffer 


2-11.2 





5. Replace segment. 


HpOREPL | 


Replace 
segment 
2-11.2 







6. If another level to replace, 
go to step 1. Return when 
done. 


To Fig 2-11 
Step 3 


DLZDLDOO 


Extended Description Routine Label 


4. (con’t) 


b) If replace rule is physical, RX 
status. If logical, no change and 
blank status. If virtual, the kev 
of the LP cannot be changed 
(DA status). The segment can 
be replaced. 


B. 


5. This replaces normal segment or LC. 


6. If path call, see if another segment 
in hierarchy can be replaced. 
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Figure 2-11.2. Replace Data (Part 1 of 2) 
INPUT PROCESS OUTPUT 


From Fig. 
2-11.1 


(DOREPL) 


1. Do PI queuing if necessary. 







- DMBFLAG 


-——-—-—p 2 If segment has secondary 
indicies and is not marked 
physically deleted: 





Buffer 


delete byte 


A. Go build work area for Delete Work Area 
: index maintenance. 


B. Call DLZDXMTO. 


=== DLZDXMTO 


Index Main- 
tenance 
2-12 







C. If blank or NE status, 


DMBCBSTC =o ———~ iy : 
continue. 


DMBVLDFG ——————- -|- —— —— > 3. If segment is variable length: 


Gem SEuie 


Replace 
variable 
2-11.3 










Buffer 4. Log old data in buffer. PSTWRK' 
code, data 
length 
DLZRDBLO 
ee oe el Physical replace 
code 51 
| 2-16.2 
DLZDLDOO — DLET/REPL Module DLZDLDOO 
Extended Description Routine Label Extended Description Routine Label 











2. Index Maintenance needs the actual 
concatenated key of this segment. 
If return code is NE, we still continue 
processing because index is now set 
as per new data. Work area is freed. 


. DBLPHYR+DBLPHYRO is set in 
first byte of PSTWRK1. 
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a ey 


~ 


Figure 2-11.2. Replace Data (part 2 of 2) 
INPUT 


User 1/O 


DLZDLDOO — DLET/REPL Module 
Extended Description 


5. The address of the user’s I/O 
area is in PSTUSER. 


6. DBLPHYR is set in PSTWRK1 
with the length of the segment. 


PROCESS 


5. Move new data to buffer. 


6. Log new data. 


=e) DLZRDBLO 


Physical 
replace code 50 
2-16.2 






7. Mark buffer altered. 


(ay DLZDBHO0 


BFALLT label 
2-15 






8. Return 


Routine Label 


Extended Description 


OUTPUT 


Buffer 


PSTFNCTN 


PSTBFALT 


Return to 
Fig 2-11.1 


DLZDLDOO 


Routine 
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Label 
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Figure 2-11.3. Replace Segment | fs Zs 
INPUT m PROCESS OUTPUT 


From Fig. 
2-11.2 
Step 3 
(REPVLS) 


Buffer ——— 1. Compress new data if required. 


2. If data separated from prefix, 
replace separated data and go 
to step 4. 


I 


REPVLS50 


‘Replace 
separated — 
data 










Bufter PSTUSER | 

he tie al [easiest 3. If new length is GT old Buffer 

length and GT minimum, sepa- 
segment 


rate data from prefix and go 





ceeD: 
(ump REPVLS30 
Separate data 
from prefix 
4. If length is equal to old Buffer 





length, or if both are LE 
minimum, replace old data and 
go to step 6. 







I 


REPVLS20 


Replace 
old data 
5. If new length is LT old 
— To Fig 211.2 
Step 7 


length, replace old data. 
DLZDLDOO — DLET/REPL Module DLZDLDOO 






Extended Description Routine Label Extended Description Routine 








2. When the data is previously separated |DLZDLDRO|REPVLSO1 
and the new data length is less than 
the old length, an attempt is made to 
relocate the new data adjacent to the 
prefix. 


When the old segment size is not large 
enough for the new segment, the data 
is separated from the prefix. A pointer 
overlays the first four bytes of the old 
data and will be used to find the new. 


When the new data will fit in the old 
location, it is moved over the old data 
with any excess bytes being freed. 


All changes to the data base have 
been logged. 
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Label 


Figure 2-11.4. HISAM Delete 





INPUT PROCESS OUTPUT 
From Fig. 
2-11 Step 3 
(DLETE) 
Buffer Pool 1. Get segment to be deleted. 
(a=) 
old segment | ra 
| ean Sene, of 2-15 
OMBORG a a aa a? 2. If data base is simple HISAM, 
PSTWRK1 


A. Indicate physical delete 
for Logger. 





B. Indicate PST erase for 
Buffer Handler. 


PSTFENCTN 


PSTERASE 


3. If data base is HISAM, 


A. Set proper delete bits. Buffer Pool 


B. Indicate logical delete 


for Logger. PSTWRK1 


DBLLGDLT 
length of 2 


PSTFNCTN 


PSTBFALT 


C. Indicate PSTBFALT for 
Buffer Handler. 


nae 
0} 


4, Log the change. 


(=) 


DLZRDBLO 
















_— 
2-16 
5. Update the data base. 
(ams) 
DB Buffer 
Handler 
To Fig 2-11 
Step 5 
DLZDLDOO — DLET/REPL Module DLZDLDOO 
Extended Description Routine _ Label _ Extended Description Routine Label 
ip DELTO1 
2. The entire segment to be erased is SHISAM 
logged. 
3. Only the segment code and delete DELT41 
byte are logged. LOGDLT 
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Figure 2-11.5. HDAM/HIDAM Delete 


ANPUT PROCESS : OUTPUT 
From Fig. 
2-11 Step 4 
(DELTHD) 
PSDBs ——Fr —-— > 1. Scan PSCBs looking for LC 
or LP. 
A. _ If starting segment is an 
| nn LC retrieved from logical 
path, mark him LD, is pos- 
sible. 


B. Ensure no violations of 
the physical delete rule. 







Delete 
2. Build work area for path. Work Ares 
Buffer 3. Read and process all segments 
aa from top to bottom. Determine 
how to delete LC or LP. 
4. At bottom, | Buffer 
(aes REQBOTM 
Delete 
segment(s) 
2-11.6 
5. Return 
To Fig 2-11 ; 
Step 5 : 
~- DLZDLDOO — DLET/REPL Module DLZDLDOO 
Extended Description Routine Label Extended Description Routine Label 





LC will be marked logically DLZDLDOO |DELTHD 
deleted (LD) if delete rule = 

physical or logical and segment 

not PD (physically deleted). 


A logical parent can have no 
active logical children. An LC 
must not be accessable by his 
logical path. 


. This is needed to remember where DELTHA 
we are, during scan of data base and NNEWOMB 
to build concatenated keys. 


. LCF and LCL pointers in logical ‘TREQSCAN2 
parents, and LTF and LTB pointers SCANDMB 
in logical children, will be updated REQDOWN 

~ now. 


. Segments may be marked deleted or REQBOTM 
physically removed. 


. All work sets are freed. ENDLTSCN 


ye 
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Figure 2-11.6. Delete Segment (Part 1 of 2) 


INPUT PROCESS OUTPUT 
From Fig. 
2-11.5 
Step 4 
(REQBOTM) 
OMBFLAG ————# 1. |f segment is an ISS; delete PSTENCTN 


index pointer. PSTXMDLT 
(= DLZDXMTO 


Index Main- 
tenance 







2-12 


Delete 
Work Area 2. If segment cannot be removed, Buffer 


mark PD, log, and go to step fe dl 
byte 









3. Change all pointers to this 













segment. 
== DLZRDBLO 
DB Logger 
2-16 
4. Mark position changes in SDBs. SDB 
5. Free segment’s space. PSTFNCTN 
PSTFRSPC 
= DLZDHDSO 
HD Space 
Management 
2-13 
DLZDLDOO — DLET/R EPL Module DLZDLDOO 
Extended Description Routine Label Extended Description Routine Label 





. If the index source segment (ISS) has | [DLZDLDDO 
been marked physically deleted (PD), 
no index maintenance is performed. 
Delete processing continues with 
blank or ‘NE’ status from DLZDXMTO. 


. Asegment will not be physically 
removed if still required because 
of a logical relationship. Note that 
the delete work area and DL/I blocks 
(primary PSDBs) are used as input 
to every step. 


. If segment is an LC or LP, the logical DLZDLDDO |FREESPCE 


relationship pointers (LC, LP, and DLZDLDAO |FRSPCOO 
LT) have already been changed. 


. The current position (SDBPOSC) is IDLZDLDAO |PRSPCO5 
marked ‘lost’ in this caller’s PCB. If MARKSDB 
any other PCB has position on this 
segment, the position should be 
changed to bypass this segment. 


. DLZDHDSO makes the log calls for DLZDLDAO |FRSPCOSG 
the physical delete. 
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Figure 2-11.6. Delete Segment (part 2 of 2) : 
INPUT om Te PROCESS OUTPUT 


6. If starting segment is not yet 
deleted, get next segment and 
process it. 


aca To Fig 2-11.5 
Step 3 


7. Return 





To Fig 2-11 
Step 5 


DLZDLDOO — DLET/REPL Module DLZDLDOO 


Extended Description Routine Label Extended Description Routine Label 


6. Next segment is physical DLZDLDOO | BOTM1B 
twins, sibling, or parent. 


. At end, a final log call is 
made to DLZRDBLO which 
signifies delete is finally 
accomplished. 
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Figure 2-12. Index Maintenance 






























INPUT PROCESS OUTPUT 
From Caller 
(See Note) 
PST 
PSTDBPCB 
PSTIOPRM 
PSTUSER 1. Save registers and PST fields. Work area 
PSTDSGA 
PSTBYTNM 
JCBPRESF rm —") 2. Analyze function. 
PST ___f A. If ISRT/ASRT, insert new 
PSTENCTN index pointer segment. 
PSTWRK1 
(a 
Insert New Index 
Target Segment 
2-12.1 
B. If DLET, delete old index 
pointer segment. 
Ga 
Delete Old Index 
Target Segment 
2-12.2 
C. If REPL, replace index 
pointer segment. 
= 
Replace Index 
Target Segment 
2-12.3 
D. If UNLD, insert FF-key. 
(==) 
Insert FF-keys PST |. 


3. Restore registers and PST. 


DLZDXMTO — Index Maintenance 


Extended Description Routine 





Note: DLZDXMTO is called from 
DLZDDLEO or DLZDLDOO. 


2. When called from DLZDDLEO, the 
function is ISRT, ASRT, UNLD, or 
REPL. When called from DLZDLDOO, 
the function is REPL or DLET. 
PSTWRK1 contains the PSDB address 
of the index source segment for DLET 
or the LSDB address of the index source 
segment. 


LINSERT 


A. Construct and insert all index 
pointer segments for this index 
source segment that should not 
be suppressed. 


Construct and delete all old 
index pointer segments existing 
for this index source segment. 






2-12.4 






DLZDXMTO 







Return to Caller 


Label 


2. (con’t) 


C. Construct all old and new index 
pointer segments that can be con- 
structed from that index source 
segment. Depending on the data 
changed and the status of sup- 
pression, delete old index pointer 
segment, or insert new index 
pointer segment, or delete old 
and insert new index pointer 
segment, or replace data of index 
pointer segment. 


LUNLOAD 


If DLBL card is provided, write 
index pointer segment with all 
FF-keys for all index data bases 
to belonging to this PCB. 





Licensed Material - Property of IBM 2-125 


Figure 2-12.1. Insert New Index Target Segment 
INPUT PROCESS OUTPUT 


From Caller 


1. Find secondary lists and length | Work area 
of index pointer segment. See note 


Work area 


Ea 


See note 


2. Construct index pointer segment. 





3. If index pointer segment is 
suppressed, go to step 1 and 
take the next secondary list. 
Otherwise, build temporary 
blocks. 


4. If initial load, put index 
pointer segment. 


5. If Not Load mode, call DLZDLAOO 
to insert index pointer segment. 


— DLZDLAOO 


Call Analyzer 
2-8 


6. If last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 






Return to 
Calter 


DLZDXMTO — Index Maintenance DLZDXMTO 


tion Routine Label Extended Description Routine Label 









Extended Descri 





Note: The input control blocks are used 3. (con’t) 
in all process steps. The output work area 
is modified in all process steps. | Build temporary blocks: LBLDCTLB 
@ SDB 
@ Segment name=sequence field name 

of index pointer segment 
@ Update Index Maintenance JCB 


and DSG. 


1.. Find SECLISTs and PSDBs of index LBLDWKA 
source segment, index target segment, 
and index pointer segment and save 
their address in work area. Decide if 
primary or secondary has to be built. 
Find length of index pointer segment, 
sequence field, segment length, and 
protected data length. 


. If DLBL cards are provided, write 
index pointer segment to index data 
base and call DLZDLOCO to open 
index data base if not open yet. Other- 
wise, write index pointer segment to 
workfile and call DLZDSEHO to open 
the workfile. 


. For primary indexes, move HIDAM LBLDXNS 
root sequence field from user I/O LGRBACK 
area to work area. For secondary LNULSUP 
indexes, construct SRCH, SUBSEQ, LCALLBH 
and DDATA fields. ; 


. Prepare DL/I call list to call LINXNS 
DLZDLAO0 with an *X call. DLZDLAOO 

. When the index entry has to be 
suppressed due to SRCH equal to 
NULLVALUE or due to exit routine 
return code, the index pointer segment 
is not inserted. 


. When the last secondary list is 
reached, exit is to LRETURN. On 
error in secondary lists, exit is to 
LABND772 (abend code 772). 
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Figure 2-12.2. Delete Old Index Target Segment (Part 1 of 2) 
INPUT é 


PROCESS OUTPUT 


From 
Figure 2-12 
Step 2B 


Work Area 
Work Area 1. Find secondary lists and length 


of index pointer segment. 


See note 


See note 





2. Construct index pointer segment. 


3. If old index pointer segment is 
suppressed, go to step 1 and 
take the next secondary list. 
Otherwise, build temporary 
blocks. 


4. Call DLZDBHOO to read old 
index pointer segment. 


a) DLZDBHOO 


DB Buffer 
Handler 
2-15 






5. Change delete flag and zero 
pointer in index pointer seg- 
ment. 


6. Call Logger to log index 
pointer segment changes. 


==> DLZRDBLO 


DB Logger 
2-16 






DLZDXMTO — Index Maintenance DLZDXMTO 


Label tion Routine Label 


Extended Descri 


Extended Description Routine 














Note: The input control blocks are used 3. (con’t) 
in all process steps. The output work area 
is modified in all process steps. Build temporary blocks: 


@ SDB 


1. 





Find SECLISTs and PSDBs of index 
source segment, index target segment, 
and index pointer segment and save 
their address in work area. Decide if 
primary or secondary has to be built. 
Find length of index pointer segment, 
sequence field, segment length, and 
protected data length. 


. For primary indexes, move HIDAM 


root sequence field from user I/O 
area to work area. For secondary 
indexes, construct SRCH, SUBSEQ, 
and DDATA fields. 


. When the old index entry has to be 
suppressed due to SRCH equal to 
NULLVALUE or due to exit routine 
return code, the index pointer segment 
is not inserted. 
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. Chain maintenance and logical delete 





@ Segment name=sequence field name 
of index pointer segment 

@ Update Index Maintenance JCB 
and DSG. 


. The Buffer Handler is called (PSTSTLEQ) LGOXNS 


to find the old index pointer segment. 
If it is not found, or it is already 
deleted, or the pointer or key are not 
correct, an NE status code is returned 
to the caller. 


. Delete flag is set to CO. 


DLZRDBLO 
calls are made to data base module. 
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Figure 2-12.2. Delete Old Index Target Segment (Part 2 of 2) pet a3 | = 
» INPUT , —y PROCESS — OUTPUT 


7, Call DLZDBHOO0 to write back the 
changed index pointer segment. 


DLZDBHOO 


' DB Buffer ‘| 
Handler 
2-15 







8. If last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 





To Fig 2-12 
Step 2B 


DLZDXMTO — Index Maintenance DLZDXMTO 


Extended Description Routine Label Extended Description Routine 





7. The Buffer Handler is called 
(PSTBFALT) to write the 
changed index pointer segment 
back. 


. When the last secondary list is 
reached, exit is to LRETURN. 
On error in secondary lists, _. 
exit is to LABND772 (abend 
code 772). 
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Label 





Figure 2-12.3. Replace Index Target Segment (Part 1 of 2) 


Figure 2-12 
Step 2C 





PROCESS 


OUTPUT 


Work area 1. Find secondary lists and length ee 
[ [ of index pointer segment. See Note 
ia : 
SDB See note 
[ 2. For primary index, continue with 
step 1. Otherwise, construct old 
index pointer segment. 
3. Construct new index pointer 
segment. 
4. Replace index pointer segment: 
A. — If old and new index pointer 
segment are suppressed, go to 
step 1 and take next second- 
ary list. 
B. If old index pointer segment 
was suppressed, insert new 
index pointer segment. 
C. If old and new index pointer 
segment were not suppressed 
and SRCH and SUBSEO fields 
not changed, replace index 
pointer segment. 
D. If the old and new index 
pointer segment were not 
suppressed and SRCH and 
SUBSEO fields were changed, 
delete old index pointer seg- 
ment and insert new index 
pointer segment. 
DLZDXMTO — Index Maintenance DLZDXMTO 
Extended Description Routine Label Extended Description Routine 


Note: The input control blocks are 
used in all process steps. The output 
work area is modified in all process 
Steps. 


1. Find SECLISTs and PSDBs of 
index source segment, index 
target segment, and index 
pointer segment and save their 
address in work area. Decide 
if primary or secondary has 
to be built. Find length of 
index pointer segment, sequence 
field, segment length, and pro- 
tected data length. 


. Construct old index pointer seg- 
ment from SRCH, SUBSEQ, and 
DDATA fields. 


. Construct new index pointer 
segment from SRCH, SUBSEQ, 
and DDATA fields. © 


4. Replacing of the index pointer 
is done in different ways, 
depending on suppression of 
old and new index pointer 
segment. 


A. When both old and new index 
pointer segments are suppressed, 
no action takes place. 


Continue with insert sub- 
routine 


DLZDBHO0 is called to read 

the old index pointer segment. 
On errors, NE is returned. The 
data base log module is called 

to log the old index pointer 
segment, and after the change of 
the DDATA fields, the new index 
pointer segment. DLZDBHOO0 is 
called again to write the index 
pointer segment back 
(PSTBFALT). 
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Work area 


Label 
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Figure 2-12.3. Replace Index Target Segment (part 2 of 2) : a. 
INPUT PROCESS OUTPUT 


4. (con’t) 


E. If the old index pointer 
segment was not suppressed, 
but the new one was, delete 
the old index pointer segment. 


5. If last secondary list, return. 


Otherwise, go to step 1 and 
take next secondary list. 


To Fig 2-12 
Step 2C 


DLZDXMTO — Index Maintenance : DLZDXMTO 


Extended Description Routine Label Extended Description Routine 


5. When the last secondary list is 
reached, exit is to LRETURN. 
On error in secondary lists, 
exit is to LABND772 (abend 
code 772). 
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Label 


Figure 2-12.4. Insert FF-Keys 


INPUT 
From Fig. 
2-12 Step 
2D 


Work area 


See Note 





DLZDXMT®O | Index Maintenance 


Extended Description 


Note The input control blocks are used 
in all process steps. The output work 
area is modified in all process steps. 


1. DLZDDLEDO passes the LSDB 
address of the root segment with 
an UNLD call. The DDIR 
address is used and all PSDBs 
in that DMB are inspected if an 


Routine Label 


PROCESS 


1. Loop through all PSDBs to 
find index source segment. 


2. Find length and keylength of 
index pointer segment. 


3. Move FF-key to index pointer 
segment. 


4. Build temporary blocks. 

5. Write the index pointer segment 
to the data base or to the work- 
file. 


6. If last PSDB, return. Otherwise, 
go to step 1 and get next PSDB. 


Extended Description 


@ SDB 


4. Build temporary blocks: 


OUTPUT 
Work area 
See Note 
To Fig 2-12 
Step 3 
DLZDXMTO 
Routine Label 


LBLDCTLB 


@ segment name = sequence 
field name of index 
pointer segment 


@ update index maintenance 


index exists. 


. Find length of index pointer 
segment and its key lengtti. 
Decide if primary or second- 
ary index has to be built. 


. Move FFs in the length of the 
index pointer segment sequence 
field to the index pointer 
segment. 


LBLDXNS 





JCB and DSG. 


LLOAD 
LWORKDS 
LCALLBH 
DLZLOCO 


. Write index pointer segment to 
index data base if DLBL cards 
are provided. Call DLZDLOCO 


to open index data base if not 
yet open. 
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Figure 2-13. HD Space Management 
INPUT 


From Caller 


DSG PST 


DSGDMBNO]} PSTWRK1 





DMBFBA 


A. 


PST — i Se 


PSTFNCTN 


A. 
B. 


4. Exit. 


DLZDHDSO — Space Manager 


Extended Description Routine 





1. PSTWRK1 contains the length of the 
space to be obtained or freed. 

2. A. If the device is FBA, the device j|DLZDCIO00 

characteristics must be obtained 

and the number of Cls per track 


and Cls per cylinder calculated. 


Get space in a data base CI for 
the specified segment as close as 
possible to a specified base RBA. 
The caller passes the address of 
the involved segment’s PSDB in 
R5 and the base RBA in | 
PSTBYTNM. 

Get space in a data base CI for DLZGGSPC 
the specified segment as close as 

possible to a root anchor point. 

The caller passes the address of 

the involved segment’s PSDB in 

RS5 and the CI number/RAP 

number (in the format BBBR) 

of the involved root anchor 

point in PSTBYTNM. 
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PROCESS 


2. Test for FBA. 


DLZGGSPC| 
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OUTPUT 


T > 1. Initialize work fields in 
the PST. 





PST 








If yes, go to Figure 2-13.5. 


3. Determine function requested. 


If Get Space, go to Figure 2-13.1. 


if Get Space Close to Root 
Anchor Point, go to Figure 
2-13.1. 


lf Free Space, go to Figure 2-13.2. 


If Modify the Bit Map, go to 
Figure 2-13.3. 


if Backout Get Space, go to 
Figure 2-13.4. 


If Backout Free Space, go to 
Figure 2-13.2. 


If Backout Modify Bit Map, go to 
Figure 2-13.3. 


Return to 
Cailer 


DLZDHDSO 


Label Extended Description Routine Label 








3. (con’t) 
C. Free space that has been allocated |DLZFRSPC 

for the specified segment in a 

data base CI. The caller passes the 

address of the involved segment’s 

PSDB in RS. 


Turn on or off the bit in the Bit 
Map representing the specified Cl 
of a data base. The caller specifies 
the CI number in PSTBLKNM. 


DLZDHDSO| FIXBTMP 


Backs out a previously processed |DLZDHDSO 


‘Get Space’ call. 


DLZFRSPC 


Backs out a previously processed 
‘Free Space’ call. 


Backs out a previously processed {|DLZDHDSO} FIXBTMP 
‘Modify Bit Map’ call. 


IBM 





Figure 2-13.1. Get Space (Part 1 of 2) 


INPUT PROCESS OUTPUT 
From Figure 
2-13 Step 3 
(See Note) 
per — . Get the Cl into the buffer DL/I Buffer 


PSTBYTNM 


Data Base Cl 


FSE 
FSE 


Cl number 1 













Buffer 
Prefixes 


a 


Cl number 1 





DLZDHDSO — Space Manager 


Extended Description 


Note: For the functions ‘Get Space’ and 
‘Get Space Close to RAP’, the following 
csects are used: 


Main routine: DLZDHDSO 
DLZDHDSO calls DLZGGSPC. 


DLZGGSPC calis DLZRCHBK, 
DLZLLCLC, DLZRRHPL, DLZRRHMP, 
DLZMNLCT, and DLZMMUDT. 


DLZRRHPL calls DLZRCHBK. 
DLZRRHMP calls DLZRCHBK. 


2. If distributed free space has been 
specified, a check is made if this block 


is to be left free. If not>a check is 
made to see if a percentage of this 
block is to be left free. If so, this 
percentage is added to the space 
requested. 


To determine if enough space is 
available in a CI, the FSE’s in this 
CI are checked. If there is more than 
one FSE in a CI, the free space with 
the largest of the following values 
that will not cause a Bit Map change 
is taken: 





~ 
Le 


Routine 


pool that is pointed to by 
the base RBA. 


a) 


DLZDBHOO 


DB Buffer 
Handler 
2-15 











. Determine if enough space is 


available in this Cl. If 

there is enough, store RBA of 
space and, if necessary, update 
the Bit Map. 


. If no space is found, go to 


step 5. 


. Locate another data base Cl, 


get it into the buffer pool, 
and go to step 2 for the 
following: 


@ ACI that is on the same 
track that is in the buffer 
pool. 


@ ACI that is on the same 
cylinder that is in the 
buffer pool. 


@ A Cl on the same track that 
has a 1-bit in the Bit Map. 


Label Extended Description 


2. (con’t) 
@ the size itself 


PST 


PSTBYNM 


Cl number 1 
Bit Map 





DLZDHDSO 


Routine Label 


@ the size+minimum segment length . 


@ the sizet2. 


A Bit Map Change is necessary if the 


data base CI cannot accomodate the 


maximum size segment because the 
available space has been used. The 
Bit Map update is performed by 
DLZMMUDT. 


. The calculation of the CI numbers 
for a given range is done by routine 
DLZLLCLC. 


Searching through the buffer prefixes 


is done by routine DLZRRHPL. 


Searching through the Bit Map is done 


by routine DLZRRHMP. 
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Figure 2-13.1. Get Space (Part 2 of 2) 
INPUT PROCESS OUTPUT 


@ ACI in the same cylinder 
that has a 1-bit in the Bit 
Map. 


© ACI being within the delta 


cylinders that is in the 
buffer pool. 


@ ACI being within the delta 
cylinders that has a 1-bit 
in the Bit Map. 


@ The next available Cl at 
the end of the data base. 


5. If no space is found, store Ber 


the error code. | PSTRTCDE 


6. Exit. 





To Figure 
2-13 Step 4 





DLZDHDSO — Space Manager DLZDHDSO 


Extended Description Routine Label Extended Description Routine Label 


5. A return code of X‘OC’ will be returned 
to the caller. 
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Figure 2-13.2. Free Space 


INPUT 
From Figure 
2-13 Step 3 
PSTBUFFA 
PSTOFFST — << 


PSTBLKNM 


DL/! Buffer 


Data Base Cl 





7 
DL/I Buffer ae == shi. 


Cl number 1 


DLZDHDSO — Space Manager 


Extended Description 





Note: For the functions ‘Free Space’ 
and ‘Backout Free Space’, the 
following csects are used: 


Main routine: DLZDHDSO 
DLZDHDS0 calls DLZFRSPO 


DLZFRSPO calls DLZMMLCT 
and DLZMMUDT. 


1. The scan will be finished when a FSE 
with a higher offset than the one in 
PSTOFFEST is reached, or, when the 
end of the FSE chain is reached. 


. The purpose of this check is to find 
out whether there will be a contig- 
uous piece of free space after process- 
ing the current Free Space call. . 


. A Bit Map change is necessary if the 
data base CI can accomodate the 
maximum size segment after process- 


PROCESS 


(See Note) 


1. Scan through the chain of FSEs in the 
specified data base Cl to find the FSE 
which applies. 


bs, 2. Check if there is more free space on the 


right and/or left side of the segment to 
be freed. 


ts 3. Build a new FSE and/or change existing 


FSE(s). 


4, Log the change of the data base Cl. 


fame} 









DLZRDBLO 


2-16 
5. Issue BFALT call to the Buffer Handler. 


fam 


DLZDBHOO 
DB Buffer 
Handler 
2-15 


6. If necessary, update the Bit Map. 





7. Exit. 


Routine Label Extended Description 


6. (con’t) 


DLZMMUDT. 


OUTPUT 


DL/\i Buffer 


Data Base Cl 


O) 


Log Tape 


Ci number 1 


To Figure 
2-13 Step 4 


DLZDHDSO 


Routine Label 


ing the Free Space call. In this case, 
the appropriate bit in the Bit Map 
has to be turned on. The Bit Map 
update is performed by routine 
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Figure.2-13.3. Modify Bit Map | 
INPUT o_ PROCESS | OUTPUT 


From Figure 
2-13 Step 3 


(See Note) 


1. Get the Cl number of the Bit PST 


DMBLRECL || PSTBLKNM Map that applies. 
UBTMPOFS 
2. Locate this Cl in the buffer 
pool. 
cum DLZDBHOO 7 | 

DB Buffer 

Handler 
2-15 


ACB Ext. PST 










DL/I Buffer 3. Apply the change to the Bit 


DL/t Buffer 
Map. 
Bit bia 


Bit Map 


4, Log the change of the Bit Map. 


Of 










PST 
PSTWRK1-4 
que DLZRDBLO 
DB Logger Log Tape 
2-16 
Bul ie 5. Mark the buffer containing Batis: 
— the Bit Map as altered. Prefix 
a) DLZDBHOO f 
DB Buffer ‘ 
Handler 
2-15 
To Figure 
2-13 Step 4 
DLZDHDSO — Space Manager _ | DLZDHDSO 
Extended Description Routine Label Extended Description Routine Label 








Note: F or functions ‘Fix Bit Map’ and 
“Backout Fix Bit:Map’, the following 
csects are used: 

Main Routine: DLZDHDSO 


DLZDHDS0 calls DLZMMLCT and 
DLZMMUDT. 


1. This step is performed by routine 
DLZMMLCT. 


2. A ‘Byte Locate’ call is issued. DLZDBHOO 


3. The update of the Bit Map is performed 
by routine DLZMMUDT. 


5. A ‘Buffer Alter’ call is issued. 
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Figure 2-13.4. Backout Get Space 
INPUT PROCESS OUTPUT 


From Figure 
2-13 Step 3 


(See Note) 
PST 


— — — 1. Scan through the FSEs of the abet 
given Cl and find the FSE C] 


that applies. 


me Buffer 





2. If the previously freed space pea 


cannot be found, store error peTRTEDE 


code and go to step 9. 








PST —_——-F — —-?p 3. If the previously freed space 
is not eee of a freed 
PRS ease ee 
DL/I Buffer 4. Create a dummy FSE. DL/I Buffer 
5. Change the FSE(s) to reflect 
the aquisition of the space. 
6. Prepare the information for " PST 
logging the data base change. 
Buffer 7. Mark the buffer as altered. aoe Buffer 
Prefix ; Prefix 
Cd j=) _] 
DB Buffer 
Handler 
2-15 
8. Update the Bit Map if necessary. 
Cl number 1 Cl number 1 
| 
9. Exit. To Figure 
2-13 Step 4 
DLZDHDSO — Space Manager DLZDHDSO 
Extended Description Routine Label - Extended Description Routine Label 





Note: This function backs out a Free 
Space call processed previously. The 
following csects are used: 


8. A Bit Map update is necessary if the 
data base CI cannot accomodate the 
maximum length segment after backing 
out the previously processed Free 
Space call. The Bit Map update is 
performed by routine DLZMMUDT. 


Main routine: DLZDHDSO 
DLZDHDSO calls DLZRCHBK. 
2. PSTOFFST contains the offset to the 


part of the data base CI which was 
freed during the Free Space call to be 
backed out. 


. Areturn code of X‘0C’ is stored in 
PSTRTCDE. 


. A ‘Buffer Alter’ call is issued to the DLZDBHOO 
Buffer Handler. 
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Figure 2-13.5. FBA Support Device Characteristics Routine 











INPUT ; PROCESS OUTPUT 
From Figure 
2-13 Step 2 
AMD | | PST 
famopsn [> 1. Issue SHOWCAT to obtain volume 
serial number of data base. 
PST PST 
lpstvish [> 2. Issue GETVCE to obtain device 
characteristics. 
3. Is device FBA? 
4. If no, issue message DLZ8311 and 
end task. 
DMB 
5. If yes, calculate Cls per track and DMBCICYL 
Cls per cylinder. , 
DMBCITRK 
DMB 
6. Calculate scan value. 
7. Exit. 
To Figure 
2-13 Step 3 
DLZDHDSO — Space Manager DLZDHDSO 
Extended Description Routine Label Extended Description . Routine Label 
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Figure 2-14. Open/Close 


INPUT PROCESS ae ; OUTPUT 
From Caller . 
Note: For each of the following 
steps, DOCDCB (Figure 2-14.1) 
is called. 
PSTENCTN ~~ eas —p 1. If PSTFNCTN = PSTOCPCB, ANCE: 
[Cs T loop through all SDBs and 
[ secondary lists to find all 
| ACBs to be opened. 
JCB 
: 
| DDIR 
+-— > 2. 1f PSTFNCTN = PSTOCDCB, 


open this one ACB. 





i 

| 

l 

| 

| 

|+-— > 3. if PSTENCTN = PSTOCDSG, 
| process all ACBs in DSG. 
| 

| 

| 

u 


~ 4. if PSTFNCTN = PSTOCDMB or 
PSTOCALL, process all ACBs 
in one DMB or all ACBs in all 
DMBs. 





Return to 
Caller 





DLZDLOCO — Open/Close DLZDLOCO 


Extended Description Routine Label Extended Description Routine _ Label 


















1. This function is used by the utilities PCENTRY j|AROUND 4. PSTOCALL + PSTOCOPN : 


DLZRDBCO0 and DLZURGPO. It is 


also used by DLZDLAOO when the 
first data base call to a not open data 
base is issued (batch only). For 
PROCOPT=L, only one data base is 
opened. For all other processing 
options, all related data bases are 
opened as well (index data bases and 
logically related data bases). 


. DLZDLROO uses this function for ACBENTRY 
positioning a HSAM data base at the |DOCDCB 
start point. It is also used by 


DLZURDBO. It opens only one ACB, 
i.e. for HISAM only KSDS or ESDS. 


. DLZDLDO0 uses this function when it 
finds a logically related data base that 
is not opened (this can happen because 
of delete sensitivity propagation). 





DLZOLIO0 uses this call to open all 
data bases in the system eligible for 
initial opening (online only). 
PSTOCALL + PSTOCCLS : 


This call is used to close all ACBs in 
the DL/I system (e.g. DLZDLAO0). 


PSTOCDMB : 
This call is used by DLZOLIO0 for 


deferred opening (online). It is also 
used by DLZDXMTO and by data 
base utilities. It opens/closes one 
ACB (two ACBs for HISAM). 
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‘ 


Figure 2-14.1. Open/Close DOCDCB Routine 


Fig. 
INPUT o_o 214 PROCESS 
Ru ——F- > 1. Issue DOS OPEN. ©: 


OUTPUT » 


ACBEXT 


DMBFLGS 


2. Issue ‘MODCB’ to update the 


exit list. 


3. Issue ‘SHOWCB’ and compare 
DMB entries to VSAM define © 


entries. 


4. For an empty ESDS file, write 


control record. 


5. Log the open record. 


6. For HISAM KSDS, go back to 


Step 1 to open ESDS. 


7. Call compression routine, if. 


necessary. 


DLZDLOCO — Open/Close 


Return to 
‘Fig 2-14 


DLZDLOCO 


Extended Description Routine Label Extended Description | Routine ~ Label 


1. This part is called from all steps of DOCOPEN 
: Figure 2-14 for opening. If the data 
base is open, return immediately. 
Immediate return is also done when the 
call is PSTOCALL and initial opening 
is not planned. Unsuccessful opens 
have return error code in.PST and flag 
in JCB. ‘DLZ020P is issued. 


. The exit list is updated with the 
address of the error handling routines 
of DLZDBHOO. 


. Control interval size, relative key 
position, and key length of DMB is 
compared to VSAM catalog entries. 
MISMATCH: DLZ025SI, DLZ027I, 
and DLZ028I. 


For HISAM, the number of logical 
records in VSAM catalog has to be 
zero for PROCOPT=L. For HD, the 
high used RBA is inspected. Message 
‘DLZ023I’ is issued for conflicts. 
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4. The first control interval is written DOCFIRST |NOTHIDAM 
(for HISAM, as many records as fill} : 3 
one CI). It contains DL/I control 
information. For HD, the ACB is 
closed and opened again to simulate 
‘NOT LOAD’ to VSAM. | 


. All PSDBs are inspected to determine |DOCVARI 
if a compaction routine with ‘INIT’ 
specified exists. 





Figure 2-15. DB Buffer Handler (Part 1 of 2) 


INPUT « 
From 
Caller 


PST 


PROCESS OUTPUT 


DLZDBHOO: 


PSTFNCTN —— ——— <p} What function is requested? 


Flag Name Hex Code 


PSTBYLCT 02. 


PSTBKLCT 


PSTBYALT 


PSTBFALT 


PSTGBSPC 


PSTFBSPC 


PSTBFMPT 


PSTPGUSR 





DLZDBHOO — Buffer Handler CSECT 


Extended Description 





Locate relative byte number. 
Locafe relative block number. 


Locate a relative byte number 
and mark buffer altered. 


Mark a buffer containing 
data as altered. 


Purge all buffers altered by 
a task. 





1. For HDAM or HIDAM: 


A. Byte locate. 
(See Figure 2-15.1, Step 1) 


B. Block locate. 
(See Figure 2-15.1, Step 4) 


C. Byte alter. 
(See Figure 2-15.2, Step 1) 


D. Mark buffer as altered. 
(See Figure 2-15.2, Step 3) 


E. Get buffer space. 
(See Figure 2-15.3) 


F. Free buffer space. 
(See Figure 2-15.9) 


G. Mark buffer as empty. 
(See Figure 2-15.9) 


H. Purge buffers. 
(See Figure 2-15.10) 


DLZDBHOO 


Routine Label Extended Description — Routine Label © 


DLZDBHOO 
DLZDBHOO 
DLZDBHOO 


DLZDBHOO 


DLZDBHOO 
DLZDBHO3 
DLZDBHO03 
DLZDBHO3 





Licensed Material - Property of IBM 27141 


Figure 2-15. DB Buffer Handler (Part 2 of 2) 





INPUT : comme PROCESS OUTPUT 
PST back 2. For HIDAM index, Simple HISAM, 
or HISAM (ESDS or KSDS). 

Flag Name 
PSTBYLCT A. Read a record. 
PSTSTLEO B. SETL equal. 
PSTSTLBG C. SETL begin. 
PSTWRITE D. Write anew record to 

HISAM ESDS. 

| PSTPUTKY E. Insert a record by key into 

a HISAM KSDS. 
PSTMSPUT F. Insert record(s) sequentially 

into a HISAM KSDS. 
PSTBFALT G. Write a record by RBA toa 

KSDS or ESDS. | 
PSTGETNX H. Read the next record ina 

KSDS. 
PSTERASE I. Erase a record from a KSDS. 

3. Exit 
Return to 
Caller 
DLZDBHO00 — Buffer Handler CSECT DLZDBHOO 
Extended Description Routine Label | Extended Description — Routine 


Read a record by RBA from 
a KSDS or ESDS. 


Get a record by root key from 
a KSDS. 


Read the record containing 
the first root segment in a 
KSDS. 
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DLZDBHO02 


DLZDBH02 


DLZDBH02 


DLZDBH02 
DLZDBH02 


DLZDBH02 


DLZDBH02 
DLZDBH02 
DLZDBH02 


HSREAD 


STLEQ 


STLBG 


LOWRITE 
PUTKY 
MSPUT 
HSWRITE 
GETNX 
HSWRITE 
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Figure 2-15.1. Byte Locate/Block Locate 


INPUT PROCESS OUTPUT 
From 
Figure 2-15 
Step 1A 
BYLCT: 


all ———y 1. Convert the given RBA to a VSAM 
control interval (Cl) number and 
an offset within the control 


interval. PST 
PSTBLKNM 
2. Locate the buffer address. PSTOFFST 
: , LOCATE Routine 


2-15.4 










3. Go to Step 6. 


From 
Figure 2-15 
Step 1B 


BKLCT: 


4. Locate the buffer address. 


| LOCATE Routine 


2-15.4 





Bois PST 
ot ? 5. Convert the CI number to a RBA. 
PSTBLKNM PSTBYTNM 


6. Exit. 
To 
Figure 2-15 
Step 3 
DLZDBHOO — Buffer Handler CSECT DLZDBHOO 
Extended Description Routine Label Extended Description Routine Label 





1. The relative byte number for the DLZDBHO00 | CONVER 
control interval is retrieved from 
PSTBYTNM. 


. The same as in Step 1 except that 
a control interval number is passed 
in PSTBLKNM. 
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Figure 2-15.2. Byte Alter/Buffer Alter 









INPUT ae PROCESS = OUTPUT 
Figure 2-15 
Step 1C 
BYALT: 
PST ——----— 1. Convert the RBA toa block | 2 
number and an offset. PsT 
2. Locate the buffer address. 
Gm (iccccac:. 
2-15.4 
From 
Figure 2-15 
Step 1D 
BFALT: 
ands =P 3. Turn on the bit in the buffer 
prefix to indicate that the 
buffer was modified or altered 
by this user. BFFR 
4. Exit. 
To 
Figure 2-15 
Step 3 
DLZDBHOO — Buffer Handler CSECT DLZDBHOO 
Extended Description Routine Label Extended Description Routine Label 











1. Byte alter is a combination of byte 
locate (Figure 2-15.1, Steps 1-3) and 
buffer alter (Figure 2-15.2, Steps 3 
and 4). 

. The bit that is turned on is in the DLZDBHO0 |MARKALT 
2-byte field BFFRUSID. The 16 bits | 
correspond from right to left to the 
user ID indicated in the PPST. If a 
user ID higher than 16 is assigned, 
two or more users share the same 
bit. 
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Figure 2-15.3. Get Buffer Space 
INPUT 
From 


Figure 2-15 
Step 1E 


PST 





esravtum | [ 


BFPL 


BFPLROCT 
BFFR 
Buffer Pool 


FE 


Control Blocks 


| 


BFFR 


DLZDBHOO — Buffer Handler CSECT 


Exteniled Description 


1. The subpool information table (SBIF) 
is used to find a buffer subpool with 
buffers that contain the least number 
of bytes needed for this space 
request. 


. Buffers that are marked non-reusable 
or are permanent write error buffers 
cannot be used. 






Routine Label 


PROCESS 


GBSPC: 


. Get the address of the selected 


buffer subpool. 


. Search the buffer prefixes of 


the subpool to find a buffer 
that can be used. 


. If areusable buffer cannot be 


found, wait until one becomes 


available. 


DLZOWAIT 


Online Wait Routine 
2-6.8 






. Move the control interval 1D 
_ into the buffer prefix. 


. If the buffer is busy, wait 


for it. 


DLZOWAIT 


Online Wait Routine 
26.8 


(=) 






. Write the buffer if necessary. 


. Mark buffer ‘non-reusable’. 


. Put the address and the size 


of the buffer into the PST. 


. Exit. 


Extended Description 
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OUTPUT 


BFFR 


BFFRCIID 


al 


Data Base 
BFFR 


PST 


PSTDATA 
PSTBYTNM 


To ; 
Figure 2-15 
Step 3 
DLZDBHOO 
Routine Label 
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Figure 2-15.4. LOCATE Routine 
INPUT = | 


From 
Figure 2-15.1 
or 2-15.2 


l 
, 





| 
cea anaes 


Vy 


Data Base 


DLZDBHOO — Buffer Handler 


Extended Description 





PROCESS 






. Check if the predecessor in the 
_write chain is in the buffer 


Data Base 
LOCATE Buffer Write 
=a 2-156 
. If the block is new, put the 


. If the block is not new, read 


OUTPUT 





LOCATE: 


. Search buffer prefixes for the 


requested block. 


LOCATE Buffer Search 
=> 2-15.5 





U) 


pool. Write buffer if necessary. 





lt 


buffer on the write chain and 


; BFFRs 
mark it as altered. 


LOCATE New Block 
= Processing 
2-15.7 





Buffer Pool 
Control Block 


the block into the buffer. 


LOCATE Read 


2-15.8 





. Exit. 


To 
Figure 2-15.1 
or 2-15.2 


DLZDBHOO 


Extended Description Routine 
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=e 


Figure 2-15.5. LOCATE Buffer Search 
INPUT 


PROCESS OUTPUT 







From 
Figure 2-15.4. 
Step 1 


LOCATE: 


——=—— ‘1. Search the buffer prefixes for 
the requested data base Cl 
(Control Interval). 





A. If the Cl is not found, go 
to Step 4. 


B. If the Cl is found as pending 
in the buffer pool, ENQ on 
this Cl. After control is 
returned, go back to Step 1. 


C. If the Cl is found in the 
buffer pool and is not busy, 
go to Step 2. | 


D. If the Cl is found in the 
buffer pool and is busy, ENO 
on this C!. After control is 
returned, go back to Step 1. 


2. Pass the buffer to the requestor. PST 


PSTBUFFA 
PSTDATA 


ete E> |e 
Caller 
P 4. Search the use chain from top 


bottom for a buffer that can 
be used. 





> 5. lf no buffer is available, ENO 
on the pending Cl of the buffer 
on the bottom of the use chain. 
After control is returned, go 





back to Step 4. 
6. Exit. 
To 
\Figure 2-15.4 
Step 2 
DLZDBHOO — Buffer Handier CSECT DLZDBHOO 
Extended Description Routine | Label Extended Description Routine Label 


2. Put the buffer prefix address into 
PSTBUFFA and the buffer address 
into PSTDATA. 


. A buffer can be used if: 


It is not marked 
non-reusable. 

It is not a permanent 
write error buffer. 


It is not currently 
-enqueued for a pending CI. 





Licensed Material - Property of IBM 2-187 


Figure 2-15.6. LOCATE Buffer Write 




















.PROCESS « 


OUTPUT 


: m INPUT 1 
: From 
Figure 2-15.4 
Step 2 
BUFFOUND: 
PST L 
, ; eae the ra ery he the 
, uffer prefix of the buffer , 
that is to be used. BEER 
| 
DMB 2. If the Cl being processed is not 
new, go to Step 5. 
3. If the predecessor in the write 
BFFRs chain can be found in the buffer - 
| pool, go to Step 5. 
as 4. If there is a sequence error, 
exit. PST 





BFFRs 


= 


Buffer Pool 
Control Block 


DLZDBHOO — Buffer Handler CSECT 


Extended Description 





“4s Moving the CI identifier means 
enqueuing on the pending CI. 


. This check is made to ensure that 
the Cls of the data base get initialized 
in sequence. _ 


_ X‘04 is stored in PSTRTCDE. 
. A buffer is busy if: 


@ It is being read into. 

@ It is being written. 

@ It is waiting for its 
predecessor in the write 
chain to be written. 


. ‘Taking over’ a buffer consists of: . 


Moving the CI identifier from 
BFFRNPST to BFFRPST. 
Turning off BFFRPNNQ and 
turning on BFFREXNQ in 
BFFRSW. 

Putting the buffer at the 

top of the use chain. 

Clearing the buffer (with 
zeros). 


2-148 


. If the buffer is busy, ENQ on 
. If the buffer does not need to 
. Write the buffer. 


. Take the buffer over. | 


Routine 


PSTRTCDE 


Return to 
Caller 


this buffer. 


be written, go to Step 8. 


Data Base 





BFFR SBIF 


(Co) [use chain] 


. Exit. 


To 
Figure 2-15.4 
Step 3 


‘DLZDBHOO 


Label Extended Description Routine Label 
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Figure 2-15.7. 
INPUT 


LOCATE New Block Processi 


From 
Figure 2-15.4 
§ Step 3 


BFFRs 


| 
Vv 


_ 


NI 


<a eRe 


V/ 


V/ 


PPST 


PPSTID 


10 


~ DLZDBHO00 — Buffer Handler CSECT 


Extended Description Ro 


4. The purpose for enqueuing the 
predecessor is to wait for completion 
of the writing. This is necessary to 
find out if the buffer is a permanent 
error buffer. 





PROCESS 


ng 
OUTPUT 


TESTNEW1: 


. Search buffer pool for the 
predecessor in the write chain. 
If it is found, go to Step 3. 


. If the predecessor cannot be 
found, go to system ABEND. 


ma DLZABEND 


Abend 845 
2-4.2 


. If the predecessor is not being 
written, go to Step 5. 






. Enqueue the predecessor that is 
being written. 


. If the predecessor is not a 
permanent write error buffer, 
go to Step 7. 


. Mark the current buffer as a 
permanent write error buffer. 


Then go to Step 9. BFFR 


= 


a ae 


. Put the buffer on the bottom 
of the write chain. 


. Mark the buffer as altered. 


. Put the buffer prefix address 
and the buffer address into the 


PST. PST 


PSTBUFFA 
PSTDATA 


. Exit. 


To 
Figure 2-15.4 
Step 5 


DLZDBHOO 


utine Label _ Extended Description Routine Label 
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Figure 2-15.8. LOCATE Read | | | 
1 INPUT PROCESS OUTPUT 


From 
Figure 2-15.4 
Step 4 . 






ISSREAD: 












Data Base 1. Read the requested Cl from the 
data base. Buffer Pool 
° Control! Block 
RPL ———- 2. If no read error occurred, go 
to Step 4 
aE 3. If an 1/O error occurred, put 
return code X‘08’ (PSTIOERR) 
in PSTRTCDE. Then exit. PST 
Return to 
‘Caller 
4. Put the buffer prefix address 
and the buffer address into the 
PST. > PST 
5. Exit. 
To 
Figure 2-15.4 
Step 5 
DLZDBHO00 — Buffer Handler CSECT | DLZDBHOO 
Extended Description | | Routine Label . Extended Description Routine Label 
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Figure 2-15.9. Free Buffer Space 


INPUT From PROCESS OUTPUT 

Figure 2-15 

Steps 1F 

and 1G 

PST 
incor 3 r —-1. Get the first buffer prefix in 

the subpool that applies to the 
call. 





2. If PST fields PSTDMBNM, PSTACBNM, 

| and PSTBLKNM do not match BFFR 
SEER — fields BEFFRDMB, BFFRDCB, and 

| BFFRCIID, go to Step 4. 

L 


—~7P 3. 1f the PST fields match the 
BFFR fields: 


A. Mark the buffer as empty. BFFR 
B. Issue RELPAG macro. 
C. Put the buffer on the bottom 


of the use chain. SBIF 


4. If this is not the last buffer 
prefix, get the next one and 
go back to Step 2. 





To 
Figure 2-15 
Step 3 





DLZDBHO3 — Buffer Handler CSECT DLZDBHOO 


Extended Description Routine Label Extended Descripti Routine 





1. The DMB subpool directory and the 
DMB number in PSTDMBNM are 
used to find the buffer subpool that 
applies to the call. 


. The caller can have the buffer 
handler free: 


@ Only one buffer. (PSTDMBNM, 
ae and PSTBLKNM 
0). 


@ All buffers of a data set. 
(PSTDMBNM and PSTACBNM 


#0; PSTBLKNM = 0). 


@ All buffers of a data base. 
(PSTDMBNM = DMB number of 
the data base; PSTACBNM and 
PSTBLKNM = 0). 
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Figure 2-15.10. Purge Buffers (CHKP Function) (Part 1 of 2) , | 
| OUTPUT 


















INPUT PROCESS 
From 
Figure 2-15 
Step 1H 
PGUSR: 
PST PCB —_ 1. Get address of the JCB. 
JCB ——-——p 2. If function is not CHKP, go to Step 19. 
PST PDIR 
PSTPSB PDIRSILA 
[PDIRSILA _| —-—-—p 3. Get address of DDIR entry. 
PSIL 
DDIR —-—-— p 4. Get address of DMB prefix. 
DMB —— —p 5. If data base organization is not SHISAM, 
! HISAM, or index data base, go to Step 17. 
ACBXT —-—-——P 6. Get the RPL address. 
RPL ———p 7. If no request were made on this RPL, 
go to Step 11. 
(VSAM) 
8. Go test if ACB busy. 
TESTACB 
| Test ACB Routine 
2-15.12 \ 
DMB — —-—p 9. Issue VSAM ENDREG for this RPL. 
DLZDBHO3 — Buffer Handler CSECT _ DLZDBHOO 
Extended Description | Routine Label Extended Description | Routine Label 


2. Field JCBPRESF in the JCB is checked 
for encoded checkpoint function 
(FUNCCHKP X‘85’). If function is not 
CHKP, go purge the DL/I buffers. 


. If data base organization is not SHISAM 
(field DMBORG; bitDMBSHIS X‘01’ not 
set on), or HISAM (bit DMBISAM1 
X‘02’ not set on), or an index data base 
(bit DMBNDEX X‘08’ not set on) go 
update to next PSIL entry. 


. VSAM ENDREQs are issued for every 
SHISAM, HISAM, and index data base 


to ensure that the VSAM buffers are 
written to the data base. 
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Figure 2-15.10. Purge Buffers (CHKP Function) (Part 2 of 2) 
INPUT PROCESS OUTPUT 


10. Post DMB ECB complete. 


11. If HISAM data base, update to next 
ACB extension. 


ACBXT _-— > 12. Get the RPL address. 


DMBACBRP 


— — —p 13. If no request were made on this RPL, 
go to Step 17. 





14. Go test if ACB busy. 






TEST ACB 





NO 
= 
ol 
o 


Test ACB Routine 
- 2 


15. Issue VSAM ENDREG for this RPL. 


16. Post DMB ECB complete. 


PSIL — — —p 17. Update to next PSB intent list entry. 
PSIL — — —p 18. If not end of PSB intent list, return 


to Step 3 


19. Go to normal purge. 


To Figure 
2-15.11 


DLZDBHO3 — Buffer Handler CSECT | | DLZDBHOO 


Extended Description a Routine Label ia Extended Description - Routine Label 


11. If the entry is for HISAM, update to the 
next ACB extension. For HISAM, 
ENDREQs must be issued for both the 
KSDS and ESDS. 


18, Continue scan of the PSB intent list until 
all have been processed. When processing 
is completed, go purge the DL/I buffers. 
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Figure 2-15.11. Purge Buffers (Part 1 of 2) 


INPUT 
From 
Figure 
2-15.10 
us 
PPST BFFRs ome en 


PPSTID 


PSTDMBNM re 


PSTACBNM 


PSTBLKNM 


| 
| 
t 
I 
| 
| ae ee 
F- 
| 
| 
L 





1 


BFFRs 


I 
y/ 


DLZDBHO3 — Buffer Handler CSECT 


Extended Description 





1. This routine scans all buffer prefixes. 


3. The caller may select a certain data 
base, a certain data set, or certain 
buffers to be purged. The choice is 
indicated by putting the number of 
the desired item into PSTDMBNM, 
PSTACBNM, or PSTBLKNM. Zeroes 
in these fields indicate that purging of 
all components of the item on the next 
higher level is desired. This module 
checks the contents of the above 
mentioned PST fields against the con- 
tents of fields BFFRDMB, BFFRACB, 
and BFFRCIID in the buffer prefix. 


. Buffers that are non-reusable are freed 
during a purge call. , 


. Permanent write error buffers are not 
freed until all tasks, which either 

_ altered the buffer, or might be 
interested in it because they use the 
data base, have terminated. 










PROCESS 


Routine 


PGUSR1: 


1. Get the first of all buffer 
prefixes. 


2. If the buffer was not altered 


by this specific user, go to 
Step 11. 


3. If the identifiers are not 
equal, go to Step 11. 


4. If the buffer is not 
non-reusable, go to Step 6. 


5. Mark the buffer empty, issue 
RELPAG macro, and put the buffer 
on the bottom of the use chain. 
Then go to Step 11. 


6. If the buffer is not a 
permanent write error buffer, 
go to Step 10. 


7. Delete this user from the user 
mask field in the buffer prefix. 


BFFR 


OUTPUT 


SBIF 


[) [usecrain 





DLZDBHOO 


Label 


Extended Description 


7. Before the bit in BFFRUSID, which 
corresponds to the user identifier (in 
the PPST) of the current task, is turned 
off, a check is made whether any tasks 
are active that would share the bit with 
the current task. (Refer to the notes in 
the Figure for routine BFALT.) 
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Routine Label 











Figure 2-15.11. Purge Buffers (Part 2 of 2) — 
INPUT : PROCESS ; OUTPUT 


—_——-—- 8. If BEFFRUSID is now zero, or if 
there are no more potential 
users for this buffer: 





A. Mark the buffer empty. 
B. Issue RELPAG macro. 
C. Put the buffer on the bottom 


of the use chain. Cd [use chain _] 


9. Go to Step 11. 


SBIF 








aA ey 10. Write buffer to Disk. 
Data B i 
Gontel 11. If this is not the last buffer ata Bac 
interval (Cl) prefix, get the next one and 
. return to Step 2. 
12. Exit. 
To 
Figure 2-15 
Step 3 
DLZDBHO3 — Buffer Handier CSECT DLZDBHOO 
Extended Description . Routine Label “Extended Description Routine Label 











8. A task is a potential user of a buffer 
if at least one of the DSGs in the 
PSB has the same DMB and ACB as 
in fields BFFRDMB and BFFRACB 
of the buffer prefix. 
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Figure 2-15.12. Test ACB Routine a 
es ‘PROCESS | ie gs OUTPUT: 


INPUT From Figure ‘ 
2-15.10 ‘a | 
Step 8 or 14 
a + — —-—p 1. Save RPL address. © | ees 4 | 
ae + — — > 2. Get PST address. | eee a 
ACBXT____—#- — — — 3. If DMB ECB not busy, go to Step 9. ———p 
Boa 
4. Indicate wait was necessary. | > PST 
PST + — ——p 5. Get PPST address. ian 
imams 
: 6. Indicate enqueued by buffer handler. : so Frey 
ae — > 7. Issue wait. 
8. Reset enqueued by buffer handler PPST 
: indicator. a 
ree: + — —-—>} 9. Restore RPL address. , > Ri 
ate C= 10. Indicate DMB ECB is busy. ACBXT 
=) 
f 
11. Return to caller. \ 
To Figure 
9 2-15.10 | 
Step9or15 | 
DLZDBHO3 — Buffer Handler CSECT DLZDBHOO 
Extended Description a ie ae Routine ‘Label | Extended Description | : Routine Label 


. Byte 2 of DMB ECB set to X‘80’ 


. Bit PSTIWAIT in field PSTCLRWT in 
PST set on. 


. Bit PPSTBF in field PPSTIND in PPST 
set on... 


. DLZIWAIT macro issued. 


. Bit PPSTBF in field PPSTIND in PPST 
set off. 


NOWAIT 


. X‘80’ in byte 2 of DMBECB turned off. 
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Figure 2-16. DB Logger (Overview) 


= INPUT « From PROCESS = , = OUTPUT = 
Caller 


Note: The three different functions 
of the logger are associated with the 
three different entry points into it: 

@ DLZIDBLO (Step 2) 

@ LOGWR (Step 4) 

@ WRIAHEAD (Step 5) 


1. Initialize logger. (See Figure 2-16.1) 


2. Build a log record and move it to 
the log I/O area. (See Figure 2-16.2) 


3. Give control to asynchronous log 
subtask (online only). (See Figure 
2-16.3) 


4. Move a log record (which has been 
built by another module) to the log 
I/O area. (See Figure 2-16.4) 


5. Write log information physically to 
tape. (See Figure 2-16.5) 


6. Close the log file. (See Figure 2-16.6) 


Return to 
Caller 
7. Check for disk errors. (See Figure 
2-16.7) 

To 
DLZBNUCO 
ABEND 
Routine. 

DLZRDOBLO — DB Logger CSECT DLZRDBLO 

Extended Description — | | Routine Label Extended Description == Routine = Label 








DLZIDBLO | 


ONLINT 
ONLLOGWRI 


LOGWR | 
WRIAHEADE 
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Figure 2-16.1. Initialize Logger | 3 
. rom 
Step 1 ; 


1. Initialize entry points in 


2. Open the log file and if — | [ 


successful turn open bit 
on in SCD. 


3. Issue error message if open 
failed and disk logging was 
specified. 


4, Restore registers. 





To 
Figure 2-16 





DLZRDOBLO — DB Logger CSECT DLZRDBLO 


Extended Description Routine | Label Extended Description Routine Label . 





1. The entry point to the logger module 
initially points to the initialization 
routine. After initialization it con- 
tains the entry point of DLZIDBLO 
All of the entry points to the various 
logger routines are in the SCD after 
initialization. 


. If tape logging is specified, the DTF 
is opened. 


If disk logging is specified, the ACB 
is opened and tested if successful. 


. Message DLZ020I is issued if an 
open error occurred with disk 
logging. 


Message DLZ0771 is issued if the 
log was opened successfully with 
disk logging. | 
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Figure 2-16.2. Build Log Record (Part 1 of 2) 
INPUT PROCESS OUTPUT 








From 
Figure 2-16, 
Step 2 


1. Build the log record: 





JCB 


JCBPRESE 


A. Detect the kind of log call. 


- B. Move header information 
into work area. 


Move data into workarea. 


PSTBLKNM DSGINDA 


PSTDATA ? D. If all data does not fit 
PSTOFFST DSGDMBNO into log record, move as 


C. id 
PSTWRKt+ DSGACBNO much data as possible. et 
— Log Work Area 
DME 2. Move date and time into og 
oct log record. 
DCBLRECL 
DMBDL 
DL/I or VSAM DMBPRS2 
BUFFER 
SCD 
SCDCWRKL 


{| 3. Move log record to I/O area: 
LOG WORK aaa 


AREA If log record does not | I/O Area 
7 fit into 1/O area, do Step 
4, Otherwise, go to Step 5. 


PST 7 
DSGDCBA ae 
| 
| 
| 
2 





DLZRDBLO — DB Logger CSECT DLZRDBLO 


Extended Description Routine Label Extended Description Routine Label 





1. Depending on the kind of log record DLZRDBLO | DLZIDBLO 
being processed, the logger will build 
one of the following type of log record: 


Physical insert record 
Physical replace record 
Physical delete record 
Logical delete record 
Pointer maintenance record. 


The maximum logical record size 

for a log record is 512 bytes. The 
blocks are undefined with a maximum 
of 1024 bytes. 
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Figure 2-16.2. Build Log Record (Part 2 of 2) | é | 
INPUT a ; PROCESS OUTPUT 


[ | 4. Write the contents of the 


Ochi 1/O area to tape or disk. . 
A. — If logging is being done in 
a batch environment, 
issue the PUT macro © 
immediately. 


B. If logging is being done in 
an online environment, 
pass control to: 


(= Asynchronous 
Log Subtask 


2-16.3 





5. Check for disk errors 
if disk logging. See 
Figure 2-16.7. 


SCD 6. If the log request is associated 
with a buffer, move the 
number of the last written 
log block from SCDLOCOU 


into the buffer prefix. BFER 


7. If more data is to be logged, 
return to Step 1C. 
Otherwise; 





To 
Figure 2-16 





DLZRDBLO — DB Logger CSECT DLZRDBLO 





Extended Description Routine Label - Extended Description | Routine Label 


In an online environment, the 
PUT macro is issued from the 
Asynchronous Log Subtask in 
order to avoid losing tasks when 
EOV is encountered on the log 
tape. 


6. The purpose for keeping the number 
of the last written log block in the 
SCD and in the BFFR is to enable 

~ DLZDBHO00 to determine if a log 
record has to be written out before 
an update is applied to a data base. 


. There will be more data to be logged 
if all data did not fit into the log 
record. See Step 1D. 
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Figure 2-16.3. Asynchronous Log Subtask 






INPUT PROCESS OUTPUT 
From 
Figure 2-16.2, 
Step 4 
SCD 
1. Lock the SYSTEM ECB. Sep 





PRIVATE ECB 
PRIVECB 


SCDELECB 


” 
Q 
An 


Vv 
> 


PRIVATE ECB 
PRIVECB 


Log |/O Area 


I 


5. Issue PUT. 


PRIVATE ECB 
PRIVECB 


SCDELECB 


”n n 
oO oO 
O 0 


2. Turn off posted PRIVATE ECB. 


6. Post the PRIVATE ECB. 


PRIVATE ECB 


PRIVECB 


3. Post the LOG 1/O ECB. SCD 


SCDELECB 


. Issue IWAIT on PRIVATE ECB. 


TAPE LOG 


PRIVATE ECB 


PRIVECB 


7. Turn off posted LOG I/O ECB. SCD 


SCDELECB 


8. Go into wait again on 


LOG I/O ECB. 
SCDESECB 9. Post the SYSTEM ECB. SCD 
To 
Figure 2-16.2, 
Step 5 
DLZRDBLO — DB Logger CSECT DLZRDBLO © 
Extended Description Routine Label Extended Description Routine Label 


Steps 1, 2,3, 4, and 9 are performed 
within CS9ECT DLZRDBLO. 


Steps 5, 6, 7, and 8 are performed 
within the Asynchronous Log Writer 
Subtask. 


. The SYSTEM ECB is used for commu- 
nication between DLZRDBLO and 
DLZODP. It is locked in order to 
prevent any other task from entering 
the logger while the I/O is going on. 


. The PRIVATE ECB is used for commu- 


nication about the completion of I/O 
between the Asynchronous Log Subtask 
and DLZRDBLO. 


. The LOG I/O ECB is used for commu- 
nication about the need to issue a 
PUT macro between DLZRDBLO and 
the Asynchronous Log Subtask. 








The Asynchronous Log Subtask is 
waiting on this ECB and when it gets 
posted, DOS/VS will mark this sub- 
task as dispatchable. 


. IWAIT will have the effect that the 
DL/I ‘maintask’ will be put into wait. 
The Asynchronous Log Subtask can 
then be started by DOS/VS. 
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Figure 2-16.4. Move Log Record 
INPUT 






From 
Figure 2-16, 
Step 4 







LOG 
RECORD 


DLENGTH 


LOG 1/0 
AREA 


CURSIZE 





LOG 1/0 
AREA 


LOG WORK 
AREA 


LOG RECORD 


DLZRDBLO — DB Logger CSECT 


Extended Description 





Note: This function is used 


@ Open log records (ID X‘2F’) 

@ Scheduling records (ID X‘08’) 
® Termination records (ID X‘07’) 
@ Checkpoint records (ID X‘41’) 


2-162 


- 
a 


Routine 


PROCESS 


(See Note) 


1. If the log record fits into 
the space currently 
available in the LOG 1/O 
AREA, go to Step 4. 


2. Write the current contents 
of the LOG 1/O AREA to the 
log tape or disk. 


3. Check for disk errors if 
disk logging. 
(See Figure 2-16.3.) 


4, Move the log record to 
the LOG I/O AREA. 


Label Extended Descri 
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Dtion 





sOUTPUT 
or 
LOG 1/0 AREA 
To 
Figure 2-16 
DLZRDBLO 


Routine Label 








Figure 2-16.5: Write Log Information 


INPUT a PROCESS OUTPUT 
Figure 2-16, 
Step 5 
Log !/O Arsa 
[OL > SCs. Issue PUT macro to write current 
contents of the log 1/O area to the 
log tape or disk. or 
2. Check for disk errors if disk logging. 
(See Figure 2-16. 7) 
To 
Figure 2-16 
DLZRDBLO — DB Logger CSECT DLZRDBLO 
Extended Description | Routine La Extended Description Routine ‘Label 





bel 
WRIAHEAD 
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1. This function is used by DLZRDBLO 
DLZDBHOO, when log 
information associated 
with a data base update 
has not been written to 
tape at the time the data 
base update was being 
done. 


Figure 2-16.6. Close Log File a | deans | 
INPUT | EES PROCESS a OUTPUT. 


From 
Figure 2-16 
Step 6 


1. Reset open bit in SCD. 


| | ? SCD 
ey ____. _y 2. If tape logging, close tape OO i C_] 


DTF. | : DTFMT 


_—_ , aa 
ees _ 3. If disk logging, close ACB = (Logout) 


and test for close errors. 


ACB 
4. If close errors, issue (LOGACB) 
error message. | 
5. Restore registers. 
To 
Figure 2-16 
DLZRDBLO — DB Logger CSECT DLZRDBLO 
Extended Description Routine Label Extended Description Routine Label 





1. Either the tape or disk log file is - IDLZIDBLO | LOGCLOSE 
~ closed in this subroutine. 


This subroutine is used by DLZODP, 
DLZRDBLO, DLZRRCO0, and 
DLZBNUCO. 


4. Message DLZ0211 is issued. 
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Figure 2-16.7. Disk Errors 
INPUT PROCESS OUTPUT 


From 
Figure 2-16 
Step 7 


1. Perform close log file routine. 


- 
2-16.6 
a _ __ 2. If full extent, check if 
PAUSE is indicated. 


SCD 3. If PAUSE is indicated, issue 


Cd —— AP message and wait for reply. 


4. If reply is ‘cancel’ issue 
message. 


5. If reply is ‘go’, open next file, 
issue file used message, and 





continue. 
ACB 
6. If an 1/O error occurs, issue (LOGACB) 
message. 
“To 
DLZBNUCO 
ABEND 
Routine 
(Figure 2-4.2) 
DLZRDBLO — DB Logger CSECT | | —_ DLZRDBLO 


Extended Description Routine Label - Extended Description Routine Label 





. The log file is closed so that the DLZIDBLO j|LOGCLOSE § 
operator could dump the file 
(optional) before continuing. 


. Checks to see if the user specified DLZRDBLO |PUTERROR 
PAUSE on the DL/I control 
parameter. 


. Message DLZO76I is issued. 

. Message DLZO77I is issued. 

. Message DLZO0791 is issued. 

. If the reply is ‘GO’, a check is made 
to determine if 1 or 2 disk files are 
being used for logging. If there are 2 
files, the second file is opened and 
control is returned to the PUT routine. 


Message DLZ004I is issued. 
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Figure 2-17. CICS Journal Logger (Overview) ey ie i aw 
INPUT om— gm PROCESS eee EE _ OUTPUT = 


_ From 
Caller 


Note: The four different functions 
of the logger are associated with 
four different entry points into it: 
@ DLZIDBLO (Step 2) 

® OPLOG (Step 3) 

@ WRITEEXT (Step 4) 

@ WRIAHEAD (Step 5) 


= 


. Initialize the logger. 


2. Build a log record and move it 
to the CICS journaling buffer. 
(See Figure 2-17.1) - 


3. Build open log record(s) and 
move to CICS journaling buffer. | 
(See Figure 2-17.2) 


4, Move a log record which has been 
built by another module to the 
CICS journaling buffer. — 

(See Figure 2-17.3) 


5. Write journal information physically 
to tape. 
(See Figure 2-17.4) 


~ Return to 
Caller 


DLZRDBL1 — DB Logger with CICS Journaling CSECT. DLZRDBL1 


Extended Description | Routine Label Extended Description Routine Label 





1. Move all of the entry points DLZRDBLI |DLZRDBLO 
to the logger into the SCD. 


DLZRDBLO§ 
OPLOG 
WRITEEXT 
WRIAHEAD 
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Figure 2-17.1. CICS Build Log Record (Part 1 of 2) 





INPUT PROCESS OUTPUT 
From 
Figure 2-17 
Step 2 
PST JCB | 
DsG 
ee ? 1. Build the log record. LOG WORK AREA 
PSTWRK1-4 
DMB 
DL/I OR VSAM 
LOG WORK 
AREA 2. Issue DFHJC TYPE=(WRITE,DL/I) 
to get the log record moved eaciereenth 
to the CICS journal buffer. BUFFER 
3. If physical 1/O is not necessary, 
go to Step 10. 
SCD 


4. Lock SYSTEM ECB. SCD 
[scoesece | ———— 
5. Issue DFHJC TYPE=WRITE 


again. 


6. If no 1/O error occurred, 


go to Step 8. 
7. Log I/O error — system 
ABEND. 
DLZBNUCO | 
ABEND Routine 
2-4.2 
DLZRDBLI — DB Logger with CICS Journaling CSECT . DLZRDBLI 
Extended Description Routine Label Extended Description Routine Label 


1. DLZRDBLI |DLZRDBLO 


4. The SYSTEM ECB is locked in order 
to prevent any other task from entering 
the logger while the I/O is going on. 
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Figure 2-17.1. CICS Build Log Record (Part 2 of 2) 


INPUT 1 PROCESS == . OUTPUT 
JCT 8. Get the new number of the last SCD 
ycTeiknm[ | —séwrritten journal block from the = 
JCT. 


9. Post the SYSTEM ECB. 


10. If the log request was not 
associated with a buffer, go 


to Step 12. 
SCD 11. Store the block number of 
[scDLOcou[—___~_—> the last journal buffer written BFFR 
to tape into the buffer prefix. | 7 


12. If the data to be logged did 
not fit into one log record, 
return to Step 1. 


To 
Figure 2-17 


DLZRDBL1 — DB Logger with CICS Journaling CSECT DLZRDBL1 


Extended Description Routine Label Extended Description Routine Label 


8. The purpose for keeping the DLZRDBLI | GETECN 
CICS event control number 
is to enable DLZRBHOO to 
determine if a log buffer has 
to be written before an update 
is applied to a data base. 
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Figure 2-17.2. CICS Move Log Record 
INPUT PROCESS OUTPUT 


From 
Figure 2-17.3 
Step 3 


(See Note) 


—-~——p 1. Locate the first DDIR entry. 
{ 


= > 2. If the data base was not 
opened, go to Step 5. 


—-— 3. Build the open log record 


| 
i for the data base referenced 
| 
| 
L 





by this DDIR entry. LOG WORK AREA 


4. Move open log record to 
CICS journaling buffer. 


— Be 5. If this is not the last 
DDIR entry, get the next 
DDIR entry and return to 
Step 2. 





To 
Figure 2-17 





DLZRDBL1 — DB Logger with CICS Journaling CSECT DLZRDBL1 


Extended Description Routine Label _ Extended Description Routine Label 





Note: Since the CICS journal tape isnot |DLZRDBL1 | OPLOG 
yet open at DL/I initialization, the open 

log record(s) are built and moved before 

the first scheduling call is logged. 


2. A data base might not have been 
opened because of the OPEN= 
DEFERRED option or because 
of an open error. 


. See Figure 2-17.1, Steps 4-9. 
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Figure 2-17.3. CICS Move Prebuilt Log Record 


INPUT PROCESS OUTPUT 
From 
Figure 2-17. 
Step 4 
(See Note) 
LOG WORK AREA 1. Get the prebuilt log record 
eee and move it to the CICS CICS 
journal buffer. JOURNAL BUFFER 
To 
Figure 2-17 
\ 
DLZRDBL1 — DB Logger with CICS Journaling CSECT DLZRDBL1 
Extended Description . Routine Label Extended Description Routine Label 


oN 


aa. 





~ Note: This function applies to DLZRDBL1 | WRITEEXT 
scheduling and termination . 
records built by the scheduling 
g ©. termination routine. 
1. See Figure 2-17.1, Steps 4-9. 


2-170 Licensed Material - Property of IBM 


Figure 2-17.4. CICS Log Writing 








INPUT PROCESS OUTPUT 
From 
Figure 2-17 
Step 5 
(See Note) 
SCD 
1. Store the block number of 
the block that is going to be 
written in the JCA (Journal 
Control Block). 
JCAECN 
ScD 
2. Lock the SYSTEM ECB. 
cICcs 


JOURNAL BUFFER 
3. Issue DFHJC TYPE=(WAIT,DL/I) 
to get current contents of 
CICS journal buffer written 
to tape. 


4. Get the block number of the 
last written journal 
block from the JCT 
(Journal Control! Table). 


LOG TAPE 


JCTBLKNM 


2) 
.?) 
| 


SCDLOCOU 


” [ ae 
ro) i?) 
( ] 


SCT ) 
SCD 


5. Post the SYSTEM ECB. 





SCD 
SCDESECB 





To 
Figure 2-17 


DLZRDBL1 — DB Logger with CICS Journaling CSECT DLZRDBL1 


Extended Description Routine Label Extended Description Routine Label 





Note: This function is used by DLZDBHOO|DLZRDBLI |WRIAHEAD 
when log information associated with a 

data base update was not written to tape 

when the data base update was being 

done. 


1. Refer to note for Step 8 of 
Figure 2-17.1. 


2. Refer to note for Step 4 of 
Figure 2-17.1. 
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Figure 2-18. Start Transaction | 
INPUT — PROCESS " : OUTPUT 


From 
CICS/VS 
DFHPCP 






CSAOPELA 


CSAOPFLA CSADLL 


DLIDLIAL —_— 


DLITTRM 
DLISTRM 


1. Check if DL/I nucleus loaded. — 


DLINUC 


DL/I Nucleus. 


SCD 7 P 2. Check if MPS already active. 


| scopspmps| {sco 


Address 





TCA — —— > 


3. Attach master partition ? CICs/Vs 
TCAKCRC controller. Dispatch Chain 


: ea DFHKC TYPE=ATTACH 
| : 7 COND=YES 


TRANS!ID=SCDB 





MPC 
DLZMPCOO 








4. Return. 
ep DFHPC TYPE=RETURN 
To 
CICS/VS 
DFHPCP 
DLZMSTRO — MPS Start Transaction CSECT a | . DLZMSTRO 
Routine _ Label Extended Description Routine Label 





Extended Description | 


1. Module identifier (DLZMSTRO) is DLZMSTRO IDLZMSTRO j 
defined here. 


Write message DLZ097I if nucleus not 
loaded or not active and go to Step 4. 


. Write message DLZ1011 if flag 
SCDXECB indicates MPS XECBs 
already defined and go to Step 4. 


3. Write message DLZ083] if attach 


fails with a return code in TCAKCRC 
and go to Step 4. 
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Figure 2-19. Master Partition Controller (Overview) 
INPUT PROCESS OUTPUT 


From 
CICS/VS 
DFHPCP 


1. Initialize MPC task. 
(See Figure 2-19.1). 


2. Defined required XECBs for 
cross partition control. 
(See Figure 2-19.2) 


3. WAITM on Start BPC, Stop 
Partition, ABEND, and Stop 
Transaction XECBs. 

(See Figure 2-19.3) 


4. |f Start Partition XECB posted, 
attach BPC task. 
(See Figure 2-19.4) 


5. If Stop Partition XECB posted, 
process stop partition requests. 
(See Figure 2-19.5) 


_ 6. If ABEND XECB posted, the BPC 
attach failed, process the ABEND 
condition. 

(See Figure 2-19.6) 


7. If Stop Transaction posted, 
terminate MPS. 
(See Figure 2-19.7) 


8. Terminate MPC task. 
(See Figure 2-19.8) 










From 
CICS/VS 
To 
et ela CICS/VS 
9. MPC ABEND exit routine. DFHPCP 
(See Figure 2-19.9) 
To 
CICS/VS 
DFHPCP DLZMPCOO 


Extended-Description . ~ Routine Label — Extended Description Routine Label 





DLZMPCOO § 
MPCSTART 


MPCDEFIN 
MPCWAIT 
MPCSTRP 
MPCSTOP 
MPCABNP 


MPCSTRN 


MPCEXIT 
MPCABEXT 
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Figure 2-19.1. MPC Task Initialization 
m INPUT Se 
From 


Figure 2-19 
Step 1 


CSA 


CSAOPFLA DL/I 


Interface 
List 
CSAOPFL 


DLZNUCxx 
CSADLI Address 


DL/I 
Nucleus 


SCD 
Address 





SYSCOM 


IJBNPART —— 2. 


a 
a z 


Transaction 
Work Area 


MPCPT 


Transaction 
Work Area 


MPCECBLT 


DLZMPCOO — Master Partition Controller CSECT 


Extended Description 





~ 1. Module identifier (DLZMPCOO vinp) is 
defined here. 


MPC is attached by the MPS start 
transaction (DLZMSTRO) via CICS/VS. 
Ignore request if DL/I is not defined 

to CICS/VS or the nucleus is not loaded. 


. The number of partitions is saved in R3 
to be used later when defining 
XECBTAB entries for partitions. The 
PARTIDTB table is used for MPC 
messages. 


Write message DLZ088I followed by 
DLZ094I if only one partition was 
defined during SYSGEN. 


In all steps where a message is issued: 

@ R1 is set up with the applicable 
message parameter list. 

® Control is passed to the MPC 

_ message writer at MPCMSGRT. 

@® BALR to the DL/I online message 
module, DLZERMSG, to write the 
message. 


. The transaction work area is a logical 
extension of the TCA. 
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Routine Label 


m PROCESS = 


. Establish SCD addressability. 


Get number of partitions defined 
during system generation (SYSGEN) 
and adjust the partition 
identification table. 


Get address of the MPC 
Partition Table. 


Get address of CICS/VS WAITM 
ECB list. 





Extended Description 
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To 
Figure 2-19 
Step 2 





= OUTPUT 


SCDADDR 


R3 


SCD 


SCDMPCPT 


DLZMPCOO 


PARTIDTB 


Ld} 


Label 


ae 


Figure 2-19.2. MPC Define XECBs (Part 1 of 2) 


INPUT From Figure PROCESS OUTPUT 
2-19 Step 2 


ScD COMREG 


BG COMREG 
X'2E’ 


MPCPTLN 


. mae XECBTAB Transaction 
—_—_— 1. Define a start partition XECB and Entries Work Area 


ABEND XECB for each partition 
DLZXCBnO MPCFLAG 
MPCPID 


defined during system generation 


R3 
R2 DLZXCBn0 


(SYSGEN). 


(=m XECBTAB TYPE=DEFINE 
XECB=DLZXCBn0 


ACCESS=XWAIT 


= XECBTAB TYPE=DEFINE 
XECB=DLZXCBn3 


ACCESS=XWAIT 


DLZXCBn3 


Address MPCECBLT 


ae 





_—— 2. If error return on DEFINE: 


| R15 
| A. Issue message DLZ082I. 


B. Delete any XECBs defined. 


C. Go to Figure 2-19, Step 8, 
to terminate MCP. 


DLZXCBOO —— 3. Define stop transaction XECB. Entry Work Area 


XECBTAB TYPE=DEFINE | | | MPCECBLT 
_ XECB=DLZXCBOO 


ACCESS=XPOST 


XECBTAB Transaction 





DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 


Extended Description Routine Label Extended Description Routine Label 

1. The XECBTAB/DEFINE macro is 
issued to initialize the XECBTAB table 
with entries representing a partition 


DLZMPCO0O |MPCDEFIN 
If‘four partitions are defined: 


R3=4 DLZXCB40 is identical to F4FO=F1 PIK 


with a unique name. DLZXCBn0 is the 
XECB name to start a batch partition 
controller for a specific partition. 
DLZXCBn3 is the XECB name for 
handling an ABEND situation for a 
specific partition. The n varies and 
represents the Ist character of the 
partition identification key (PIK) in 
character form. 


R3 being the number of partitions 
defined during SYSGEN lends itself 

to this application of naming an XECB 
for a partition. 


For example: 


If two partitions are defined: 
R3=2 DLZXCB20 is identical to F2FO=F1 PIK 
R3=1 DLZXCB10 is identical to FIFO=BG PIK 
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R3=3 DLZXCB30 is identical to F3FO=F2 PIK 
R3=2 DLZXCB20 is identical to F2FO=F3 PIK 
R3=1 DLZXCB10 is identical to FIFO=BG PIK 
XECBTAB is a table in the supervisor 
containing the name and address of all 


XECBs defined. XTABD is the DSECT 
representing an XECBTAB entry. 


The CICS/VS WAITM ECB list 
(MPCECBLT) is initialized with fullword 
pointers to the partition start XECBs. 


. DLZXCBO0 is the XECB name to stop 
the MPS transaction. The two stop 
XECBs are defined as XPOST so that 
they can be posted during abnormal 
system termination. The CICS WAITM 
ECB list is initialized with the STOP 
XECB pointers. 
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Figure 2-19.2. MPC Define XECBs (Part 2 of 2) 
INPUT PROCESS 
4. \f error return on DEFINE: 
A. Issue message DLZ0821. 
B. Delete any XECBs defined. 


C. Goto Figure 2-19, Step 8, 
to terminate MPC. 


DLZXCBO1 <r D 5. Define Stop Partition XECB. 


=a XECBTAB TYPE=DEFINE 
XECB=DLZXCBO1 


ACCESS=XPOST 


6. If error return on DEFINE, 





go to step 4. 
pee cee eset ——-—-P 7. Store Stop Partition XECB 
address in each created MPCPT 
entry. 


8. Indicate MPS active. 


9. Set ABEND exit routine for 
Master Partition Controller. 


man) DFHPC TYPE=SETXIT 
ROUTINE=MPCABEXT 





DLZMPCOO — Master Partition Controller CSECT 


Extended Description Routine Extended Description 


5. DLZXCBO1 is the XECB name to stop 
a partition. 


. Turn on SCDXECB at SCDDBMPS and 
issue message DLZ093I to indicate 
MPS started. 


. MPCABEXT routine is within this 
module (see Figure 2-19.9). 
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OUTPUT 


Transaction 
Work Area 


XECBTAB 
Entry 


eee 


Transaction 
Work Area 


MPCPT 


MPCSXECB 





SCD 
SCDDBMPS 
TCA 
TCAPCERA 





DLZMPCOO 


Routine 





Label 





LEIS 


Figure 2-19.3. MPC Wait 











INPUT PROCESS OUTPUT 
From 
Figure 2-19 
Step 3 

TCA SYS TCA — > 1. Establish special task dispatch DCA 


TCASYAA TCADCAA 


Transaction 
Work Area 


status for MPC. 





DCAFLG1 


TCATCEA 


2. Issue a wait on ECB list. 


j=! DFHKC TYPE=WAIT 
DCI=LIST 





MPCECBLT 


CICS/VS 
WAITM 
ECB LIST 


DLZXCBn0O 


XECB MPCECBLT 
A (Start Rtn) 
A (MPCPT Entry) 


DLZXCBn0 4. Return to step 2 if no XECBs 
XECB are posted. 


—— ———f 3. When control returns, scan the 
XECBs for one that is posted. 


A (Start Rtn) 
A (MPCPT Entry) 


e 
DLZXCBOO eel 
XECB taken for the first XECB found 
posted. 


5. Determine what action is to be 


A (Stop Transact Rtn) DLZ... 


DLZXCBO1 
XECB 


A (Stop Partition Rtn) 


DLZXCBn3 


XECB | 
A (ABEND Rtn) 





To 
Figure 2-19 
Step 4, 5, 
6, or 7 





DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 


Extended Description Routine Label Extended Description Routine Label 














1. Turn on the DCAAPURG flag in the DLZMPCO0O |MPCWAIT DLZXCBn3 


DCAFLGI1 byte of the DCA for this 
task. When on CICS/VS task control 
will not count this task as part of 
AMXT nor will it take the short wait 
interval if this is the only waiting task 
in the CICS/VS system. 


. Note that the ABEND XECB 
(DLZXCBn3) pointer is placed in the 
ECB list only when the BPC attach 

is unsuccessful. 


. The XECBs are posted on the following 


conditions: 


DLZXCBn0 
@ DLZMPI00 — activate BPC for 
a specific partition. 


DLZXCBOO 
@ DLZMSTPO — terminate MPS. 


DLZXCBO1 
@ DLZBPC00 — normal batch EOJ; 
error conditions in BPC or batch 
partitions. 
@® DLZODPO1 — ABEND. 
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@ DLZMPIOO — BPC attach 
failure. 


5. Before going to the appropriate routine, MPCECBOK 


the post bit in the XECB is turned off. 
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Figure 2-19.4 MPC Start Processing (Part 1 of 3) 
INPUT rs PROCESS 

From 

Figure 2-19 

Step 4 


R7 
ed ——— —p 1. Initialize for Start Partition processing. 





A(MPCPT Entry) 


MPCPT Entry 


2. Check if BPC is still active for this 
partition. 


(am XECBTAB TYPE= CHECK 
XECB=DLZXCBn2 





MPCPT Entry 


MPCID 


3. If no error on check: 


- A. Set reactivate BPC indicator. 


aD 
o 


B. Turn on BPC ABEND XECB POST 
bit. 


R6 


t ABEND XECB 


C. Return to MPC WAIT routine. 


4. Set MPCPT entry for BPC. 


1 


5, Attach Batch Partition Controller 


(DLZBPCOO). 
= DFHKC TYPE=ATTACH 
TRANSID=CSDC 
COND=YES 
TCA —-—-—} 6. If BPC attach is successful, go to Step 13. 
TCAKCRC 
DLZMPCOO — Master Partition Controller CSECT 
Extended Description Routine Label Extended Description 





1. This routine is entered from the MPC 
Wait Routine when a Start Partition 
XECB (DLZXCBn0) is posted (XPOST) 
by DL/I MPS Batch Module (DLZMPIO0) 


Register 7 contains the address of the 
XECB posted. 


. The XECBTAB/CHECK macro is used to 
determine if a BPC is still active for this 
partition. 


. A zero return code from 
XECBTAB/CHECK macro in R15 
indicates an active BPC. 


A. Bit MPCREBPC in field MPCFLAG 
is turned on. 


. R6contains a pointer to BPC 
ABEND XECB (DLZXCBn3). Note 
that the XPOST macro is not needed 
to turn on the POST bit because the 
BPC ABEND XECB (DLZXCBn3) is 
defined by MPC. 


. A *X31’ in TCAKCRC indicates an 
ATTACH failure. _ 
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OUTPUT 


MPCPT Entry DLZXCBn3 


MPCFLAG XECB 


MPCRC1 
MPCRC2 


R14 


A(XECBTAB) 


R1 


A(DLZXCBn2) 


MPCPT Entry 


> DLZXCBn3 


XECB 


To Figure 
2-19 Step 3 


TCA 


TCAKCFA . 


DLZMPCOO 


Routine Label 








Figure 2-19.4. MPC Start Processing (Part 2 of 3) 
INPUT 


MPCPT 


Entry 7. 
MPCPID 
R15 
ES > 8. 
9, 
MPCPT 
Entry MPCECBLT 
10. 
aR UL 


| [wecaxece | [___ 






R14 


A (XECBTAB) 


R1 


A (DLZXCBn1) 


DLZMPCOO — Master Partition Controller CSECT 


Extended Description 


7. The XECBTAB/CHECK macro is 
issued to obtain the address (in 
register 14) of Batch Initialization’s 
XECBTAB entry for the specific 
partition. 


. B. The partition active flag, MPCPACT, 
at MPCFLAG is turned off. 


. The BPC ATTACH failed flag, 
MPCERR, is turned on. 


. The CICS/VS WAITM ECB list is 
updated to include a pointer to the 


ABEND XECB pointer to provide 
recovery. 


Routine 


PROCESS 


Locate MPS Batch XECB if one 
exists for this special 


partition. 
(mm) XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 


If error return on CHECK: 
A. Issue message DLZ0821. 
B. Indicate Partition Inactive. 
C. Go to step 13. 

Set BPC ATTACH failed. 


Move ABEND XECB address to the 
end of the CICS/VS WAITM ECB 
list. 


Notify MPS Batch (DLZMPI00) of 
BPC ATTACH failure. 


(aE XPOST XECB=DLZXCBn1 


Extended Description 






MPCXPOST 
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OUTPUT 


R14 


A (XECBTAB) 


Ri 


A (DLZXCBn1) 





MPCPT 
Entry 


MPCFLAG 


MPCPT 
Entry 


MPCFLAG 


MPCECBLT 


FFFFFFFF 


DLZXCBn1 


XECB 


DLZMPCOO 


Routine La bel 
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Figure 2-19.4. MPC Start Processing (Part 3 of 3) 


INPUT PROCESS OUTPUT 


R15 12. If error return on XPOST: MPCPT 
Entry MPCECBLT 


[225] A. Issue message DLZ084I. | Pee cate 


if 


B. Set partition inactive and RERFEEEE | 
clear error indicator. 





C. Remove ABEND XECB pointer 
from CICS/VS WAITM ECB 
list. | | 


13. Return to MPC Wait routine. 


To 
Figure 
2-19 
Step 3 
DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 
Extended Description Routine Label Extended Description Routine Label 





12. B. The flags MPCPACT and 
MPCERR are turned off. 
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INPUT From 
Figure 2-19 


Step 5 


MPCPT 
Entry 


MPCFLAG 
MPCPTLN 





MPCFLAG 


MPCREBPC 






Figure 2-19.5. MPC Stop Partition Processing (Part 1 of 2) 


PROCESS OUTPUT 
. Scan MPCPT for an entry with stop 
partition request. At end of MPCPT, 
go to step 14. 
2. Set partition inactive and clear stop nae ‘ 


partition request. 


MPCFLAG 


3. If BPC is not to be reactivated 
go to step 9. 


MPCFLAG 


MPCREBPC 


4. Reset reactivate BPC indicator. 


5. Check if start XECB is still 3 


defined. R14 


A (XECBTAB 
ED « ECBTAB TYPE=CHECK 
XECB=DLZXCBn0 


R1 
) 


A(DLZXCBn0 





R15 6. If error on check, return to 


MPC WAIT routine. 


B To Figure 
2-19 Step 3 





7. Turn on start XECB POST bit. 


8. Return to MCP WAIT routine. 
MPCPT . 
Entry > 9. If stop transaction (MPS) requested 
also, continue; otherwise, return to 


DLZXCBnO 


XECB 


To Figure 
2-19 Step 3 


step 1 to check next MPCPT entry. 


MPCPT 
Entry 


s 10. Delete Start Partition XECB. 
==> XECBTAB TYPE=DELETE 
XECB=DLZXCBn0 
11. Delete ABEND XECB. 


a= XECBTAB TYPE=DELETE 
XECB=DLZXCBn3 


{MPCBID 


MPCPT 
Entry 


MPCPID 








DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 


Extended Description Routine Label Extended Description Routine Label 


5. The XECBTAB/CHECK macro is issued 
to determine if the start XECB 
(DLZXCBn0) is still defined. 


1. This routine is entered from the MPC 
Wait routine when a Stop Partition XECB 
(DLZXCB01) is posted (XPOST) by 
DL/I MPS Batch Partition Controller 
(DLZBPCO0) or Task Termination 


. Rl contains pointer to the start XECB 
(DLZODP01). 


(DLZXCBn0). The XPOST macro is not 
needed to turn on the POST bit because 
the start XECB (DLZXCBn0) is defined 
by MCP. 


A scan is done on every entry in the 
partition table to avoid losing a stop 


partition request on a double post. 


10. If error return on DELETE, issue message 


. Bit MPCREBPC in field MPCFLAG not on. DLZ0872I. 


. Bit MPCREBPC in field MPCFLAG 
turned off. 


11. If error return on DELETE, issue message 
DLZ082I. 
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Figure 2-19.5. MPC Stop Partition Processi 
INPUT. me: PO 


MPCPT 


MPCPT 


DLZMPCOO — Master Partition Controller CSECT 


Extended Description 


15. Flag MPCPACT in MPCFLAT 
indicates whether the partition 
is active or inactive. 
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ng (Part 2 of 2) 
PROCESS 


12. Set XECBs deleted for this 
partition. 


13. Return to step 1 to check next 
MPCPT entry. 


14. If stop transaction (MPS) has 
not been requested, go to 
step 16. 


15. If all the partitions are 
inactive, go to Figure 2-19, 
Step 8 to terminate MPC. 


16. Return to MPC Wait routine. 


Routine Label 


Property of IBM 


Extended Description 


s OUTPUT . 
MPCPT 
Entry 
MPCFLAG 
To 
Figure 2-19 
Step 3 
DLZMPCOO 


Routine Label 








Figure 2-19.6. MPC ABEND Processing 
INPUT PROCESS OUTPUT 


From 
Figure 2-19 
Step 6 


MPCPT 
Entry 


1. Locate MPC Partition Table entry to 
—_— > which this ABEND XECB belongs. 
DLZXCBn3 


XECB 





2: Set partition inactive and clear error MPCPT 
indicator. Entry 


MPCFLAG 
MPCECBLT R7 


[____] #+ ——- > 3. Remove ABEND XECB pointer from MPCECBLT 
CICS/VS WAITM ECB list. [ 


4. Return to MPC Wait routine 


To 
Figure 2-19 
Step 3 
DLZMPCOO — Master Partition Controller CSECT DLZMPCQO 
Extended Description Routine Label Extended Description Routine Label 


1. This routine is entered from the MPC MPCABNP 
Wait routine when an ABEND XECB 
(DLZXCBn3) is posted (XPOST) by 
DL/I MPS Batch Initialization Module 
(DLZMPIO0) on a BPC ATTACH 
Failure. 


Register 7 contains the address of the 
XECB posted. 


. Flags MPCPACT and MPCERR are 
turned off. 
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Figure 2-19.7. MPS Termination (Part 1 of 2) 


INPUT 






From 
Figure 2-19 
tep 7 


DLZXCBOO 


eS | 


MPCPT 
Entry 


MPCFLAG 








MPCPT 
Entry DLZXCBn0 






MPCPT 
Entry DLZXCBn3 


DLZMPCOO — Master Partition Controller CSECT 


Extended Description 


. This routine is entered from the MPC 
Wait routine when the Stop Transaction 
(MPS) XECB (DLZXCBO00) is posted 
by DL/I Stop Transaction Task 
(DLZMSTPO). 


If error return on DELETE, issue 
message DLZ082I. 


. Flag MPCTSTP is tured on. 


. The Start/ABEND XECBs are deleted 
for inactive partitions (flag MPCPACT 
off) unless they have already been 
deleted (flag MPCXECB on). 


. If error return on DELETE, issue 
message DLZ082I. ; 


. If error return on DELETE, issue 
message DLZ082I. 


. Flag MPCXECB is turned on. 
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ee Go > 


Routine 


PROCESS = OUTPUT 
. Delete stop transaction (MPS) XECB. 
=) XECBTAB TYPE=DELETE 
: XECB=DLZXCBOO 
. Set stop transaction (MPS) request Hiei 


in MPCPT entry. At end of MPCPT, 
go to Step 8. 


MPCFLAG T 


. If this partition is active, return to 


Step 2 to process next MPCPT entry. 


. Delete Start Partition XECB. 


== XECBTAB TYPE=DELETE 
XECB=DLZXCBn0 


. Delete ABEND XECB. 


qu XECBTAB TYPE=DELETE 
XECB=DLZXCBn3 


MPCPT 


. Set XECBs deleted for this partition. > Entry 


MPCFLAG 


. Return to Step 2 to check next MPCPT 


entry. 


DLZMPCOO 


Label Extended Description Routine Label 
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Figure 2-19.7. MPS Termination (Part 2 of 2) 


INPUT PROCESS 


MPCPT Entry — — > 8. Scan MPCPT entries for an active 


MPCFELAG partition. Go to Step 10 if no 
ee i) tition. Go to 


active partition is found. 


9. If an active partition is found: 


MPCPT Entry A, 


MPCPID 





DLZMPCOO — Master Partition Controller CSECT 


Extended Description Routine 


8. A partition is active if MPCPACT is on. 


| 9, A. The XECBTAB/CHECK macro is 
is issued to determine if the batch 
partition is still defined. 


. Bit MPCCNBPC in field MPCFLAGI 
in the MPCPT is set on. 


. R6contains pointer to the BPC 
ABEND XECB (DLZXCBn3). The 
XPOST macro is not needed to turn 
on the POST bit because the 


ABEND XECB is defined by MPC. 


~ | ; 


. Return to MPC Wait routine 


Check if XECB for batch partition 
still defined. 


= XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 

If batch partition still active, 

go to Step 9F. 


Set cancel BPC indicator in MPCPT. 


Turn on BPC ABEND XECB 
POST bit. 


Go to Step 9G. 


Issue message DL ZO86I. 


10. Go to MPC Termination. 


Extended Description 
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OUTPUT 


XEOBTAB 


ERIE 


MPCFLAG1 
MPCCNBPC 


DLZXCBn3 


XECB 


To 
Figure 2-19 
S »p3 


To 
Figure 2-19 
Step 8 


DLZMPCOO 


Routine 





Label 
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Figure 2-19.8. MPC Stop Transaction Processing | 
INPUT g™ PROCESS OUTPUT 


From 
Caller 


1. Locate Stop Partition XECB. 
am) «=027 98 TYPE=CHECK 
XECB=DLZXCBO1 
DLZXCBO1 
{ as cet > 2. Delete Stop Partition XECB. 
= XECBTAB TYPE=DELETE 
XECB=DLZXCBO1 


3. Indicate MPS inactive. SCD 


SCDDBMPS 


4, Return to CICS/VS. 


(DFHPC TYPE=RETURN) 





To 
CICS/VS 
DFHPCP 
DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 
Extended Description Routine Label Extended Description Routine Label 


1. This routine is entered when MPS is 
to be terminated normally or 
abnormally. 


. If error return on DELETE, issue 
message DLZ082I. 


. Flag SCDXECB at SCDDBMPS is 
turned off and message DLZ0941 
is issued to indicate MPS stopped. 
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Figure 2-19.9. MPC ABEND Exit Routine (Part 1 of 2) 
INPUT ‘PROCESS OUTPUT 


From 
CICS/VS 


T.. Indicate MPS inactive. SCD 


2. Delete Start Transaction (MPS) and 7 


Stop: Transaction XECBs. 











DLZXCBOO DLZXCBO1 


Cie | ee 


XECBTAB TYPE=DELETE 
XECB=DLZXCBOO 


XECBTAB TYPE=DELETE 
XECB=DLZXCBO1 


qT] 






MPCPT 
Entry 


Sh 


DLZXCBn0 DLZXCBn3 


eae 7 ee 


ihe 4. Locate this partition’s BPC XECB. 


| 7 R1 


XECBTAB TYPE=CHECK 
XECB=DLZXCBn2 


and ABEND XECBs. 


XECBTAB TYPE=CHECK 
XECB=DLZXCBn2 


XECBTAB TYPE=DELETE 
XECB=DLZXCBn3 


tf 


are. 
| ___ » 3. For each MPCPT entry, delete Start 


l 


R14 


— — ——— 5. Turn on the BPC XECB post bit. ] DLZXCBn2 
DLZXCBn2 
XECB 
= 
| 6. Return to Step 3 to get next MPCPT 


entry. At end of entries, continue to 
next step. 





DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 


Extended Description Routine Label Extended Description Routine Label 


1. This routine is entered from CICS/VS 
if an ABEND occurs in MPC. Linkage 
was established through DFHPC 
TYPE=SETXIT in Figure 2-19.2. 


Flag SCDXECB at SCDDBMPS is 
turned off to show MPS as inactive. 


. Note that the XPOST macro is not 
needed to turn on the POST bit because 


BPC XECB (DLZXCBn2) is defined in 
the same partition as this module. 
DLZXCBn2 is defined by DLZBPCOO. 
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Figure 2-19.9. MPC ABEND Exit Routine (Part 2 of 2) 
INPUT PROCESS 


TCA 7. Set information for message 
DLZ104I and issue it. 





8. Return to CICS/VS. 


DFHPC TYPE=ABEND 
ABCODE=DMPC. 


To 
CICS/VS 


DLZMPCOO — Master Partition Controller CSECT 


Extended Description | | | Routine Label Extended Description 





Ti 


8. DMPC ABEND code defines MPC 
failure for CICS/VS dump ID. 
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OUTPUT 


DLZMPCOO 


Routine 


Label 


Figure 2-20. Batch Partition Controller (Overview) 

INPUT Erom ‘PROCESS OUTPUT 
CICS/VS 
DFHPCP 


1. Initialize BPC task. 
(See Figure 2-20.1) 


2. Issue online DL/I scheduling call 
on behalf of the batch partition. 
(See Figure 2-20.2) | 


3. Wait on BPC and ABEND XECBs. 
(See Figure 2-20.3) 


4. |\f BPC XECB posted, process 
batch request. 
(See Figure 2-20.4) 


5. lf ABEND XECB posted, terminate 
BPC. 
(See Figure 2-20.5) 


To 

CICS/VS 
From DFHPCP 
CICS/VS 


6. BPC abend exit routine. 
(See Figure 2-20.6) 


DLZBPCOO 


Extended Description Routine Label Extended Description Routine Label 


DLZBPCO0 |DLZBPCOO 
BPCSTART 


BPCSCHCK 


BPCWAIT 
BPCCALL 
BPCEXIT 
BPCABND 
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Figure 2-20.1. BPC Task Initialization (Part 1 of 3) 


INPUT PROCESS OUTPUT 
From 
Figure 2-20 
Step 1 
SYSCOM ——-—- fp 1. Get number of partitions defined 


IIBNPART 


messages. 


DL/I| 
Interface 
List 


DLZNUCxx 
Address 


CSAOPFLA 


CSAOPFL 
SCADLI 


Nucleus 


SCD 
Address 


TCAFCAAA 


SCDMPCPT 





MPCPT 


Entry 


MPCPID 


TWA 2 


TWABPCID 


DLZBPCOO — Batch Partition Controller CSECT 


Extended Description 


Routine Label 














1. Module identifier (DLZBPCOO vnp) is |DLZBPCO0 [DLZBPCO0 


defined here. 





The Batch Partition Controller (BPC) is 
attached by DLZMPCO00O when a start 
request has been made by a partition. 


On entry, R12 contains address of TCA 
and R13 contains address of CSA. 

















DLZXCBn1 = XECB name for MPS 
batch partition, where n is the parti- 
tion ID based on key of partition. 





DLZXCBn2 = XECB name for a BPC 
for a specific partition (n). 


DLZXCBn3 = XECB name for handling 
an abend condition for a specific 
partition (n). 





. Flag MPCPACT in MPCFLAG indicates 
this partition is active. 





. XECBTAB TYPE=CHECK macro is 
used to obtain the address of MPS 
batch XECB. 
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2. Set MPCPT address and the 
specific MPCPT entry the BPC 
was attached for in the 
transaction work area. 


s& 3. Set the partition active. 
Entry 
Address 
MPCPT | 


4. Save the partition ID. 





during SYSGEN and adjust 
partition identifier for BPC. 


TWA 
Pa 


TWA 





MPCPT 
Entry 


MPCFLAG 


TWA 
TWABPCID 


5. Locate the MPS batch XECB. 1 Ri R14 


(uaz) 


DLZXCBn1 XECBTAB 
| |Address Entry 


Address 


XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 





DLZBPCOO 


Extended Description Routine Label 








IBM 


Figure 2-20.1. BPC Task Initialization (Part 2 of 3) 
INPUT PROCESS OUTPUT 
R15 _— > 6. If error return on CHECK: 
aa Hp A. Issue message DLZ0821. 
| B. Set abnormal termination condition. 
R1 R13 : 
C. Go to Figure 2-20.5, Step 3, to 
[twasrcsv | terminate BPC. TWA 





7. Save DLZXCBn1 XECB name and 
XECBTAB entry pointer. 


8. Set 


with BPCs (DLZXCBn2) XECB address 


and 


TWA 







TWABPC TWAWLIST 


TWABPCID TWAXCBN2 















A. 
B. 
R1 R13 Cc 
TWAMSG TWABPCSV ; 
D 
MPCPT Entry 
MPCAXECB E 
DLZXCBn3 
F. 
G. 
DLZBPCOO — Batch Partition Controller CSECT 
Extended Description Routine 


9. BPC XECB (DLZXCBn2) is defined for 
cross partition communication with MPS 
Batch Initialization (DLZMINIT), MPS 
Batch Program Request Handler 
(DLZMPRH), and MPS Batch 
Termination (DLZMTERM). 








. Flag MPCERR indicates an error 
condition. 


. The POST bit X‘80’ in the XECB is 
turned off. 


Define BPC XECB. 


. If error return on DEFINE: 


TWAWLIST 


TWAXCBN1 


TWANITPTR 


TWA 





BPCs CICS/VS WAITM ECB list ne 


TWAXCB2 


the delimiter. 





jn 


XECBTAB TYPE=DEFINE 
XECB=DLZXCBn2 
ACCESS= XWAIT 


MPCPT Entry 


MPCFLAG 


Issue message DLZ082I. 
Set error indicator. 
Notify batch partition of the error 


Lt 


condition. DLZXCBnI1 
(ame XPOST XECB=DLZXCBn1 
. Wait on ABEND XECB. 
== DFHKC TYPE=WAIT 
When control returns, clear ABEND sus vanes 


XECB. 
Set abnormal termination condition. 


Go to Figure 2-20.5, Step 3 to 
terminate BPC. 


XECB 


DLZBPCOO 


Label Extended Description Routine | 
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Label 
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Figure 2-20.1. BPC Task Initialization CSECT (Part 3 of 3) 


INPUT PROCESS 
MPCPT 11. Set BPCs CICS/VS WAITM ECB 
Entry list with ABEND XECB address. 


12. Set abend exit routine for Batch 
Partition Controller. 


eam DFHPC TYPE=SETXIT 


ROUTINE=BPCABND 


13. Continue processing. 


DLZBPCOO — Batch Partition Controller CSECT 


Extended Description Routine Label Extended Description 


12. The BPCABND routine (see 
Figure 2-20.6) is within 
this module. 
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OUTPUT 


TWA 


TWAWLIST 
TWAXCB2 


TWAXCB3 
TWAXCBDL 


To 
Figure 2-20 
Step 2 


DLZBPCOO 


Routine 





Label 





Figure 2-20.2. Issue Online DL/I Scheduling Call (Part 1 of 2) 
INPUT PROCESS OUTPUT 








From 
Figure 2-20 
Step 2 


SCHDPRMC XCB1 
SCHDFUNC XCB1PSB 





1. Get parameter count, function call, 
and PSB name for DL/I call parameter 





list. 
TWASCHDC —___} 2. Issue DL/I scheduling call. 
BPC Register == DLZL1000 





Save Area BALR 


Language 
Interface 


TWAPARMC 


TWACALL 


TWAPSBN 





MPCPT 
Entry 


____ 3. If ABEND XECB is posted: 


A. Set abnormal termination 


DLZXCBn3 bate 
condition. 


XECB 





B. Clear the POST flag of ABEND 
XECB. 


C. Go to Figure 2-20, Step 5, 
to terminate BPC. 










TCA 
TCAFCTR ———-— 4. If error return on scheduling 
TCADLTR call, set error indicators and MPCPT 
error codes. Entr 
MPCFLAG 
MPCRC1 
MPCRC2 
DLZBPCOO — Batch Partition Controller CSECT DLZBPCOO 
Extended Description Routine Label Extended Description Routine Label 


1. Macro DLZXCB1 defines a DSECT 
that represents the format of the 
fields after the MPS Batch XECB 
(DLZXCBn1) used here as a 
parameter list by BPC. 


Addressability to DLZXCBn1 was 
obtained by the XECBTAB 
TYPE=CHECK macro in Figure 
2-20.1, Step 5. 


. Flag MPCERR at MPCFLAG is turned BPCSCHCK 
on. 





Licensed Material - Property of IBM 2-193 


Figure 2-20.2. Issue Online DL/I Scheduling Call (Part 2 of 2) 


INPUT PROCESS « OUTPUT 
R12 —_ —_— : 5. Save the TCA address for MPS 
[ Batch (DLZMP100). : MPCPT 
ntry 


4 


6. Notify Batch Partition that 
DL/I scheduling call has been 
completed. DLZXCBn1 


XECB 
(aad XPOST XECB=DLZXCBn1 3 





7. If error return on XPOST: 


\l/ 


A. Issue message DLZO84I. 





B. Go to Figure 2-20, Step 5, 
Ri —_I to terminate BPC. 
8. Continue processing. 

To 
Figure 2-20 
Step 3 

DLZBPCOO — Batch Partition Controller CSECT . DLZBPCOO 

Extended Description — Routine Label Extended Description Routine Label 





et . 
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Figure 2-20.3. Wait on BPC and ABEND XECBs 
INPUT = PROCESS OUTPUT 









From 
Figure 2-20 
Step 3 
TWA 
TWAWLIST 


———— <> 1. Issue WAITM on BPC and ABEND 
XECB. 
Gua) DFHKC TYPE=WAIT 


TWAWLIST 


TWAXCB2 
TWAXCB3 
TWAXCBDL 


CSA 


CSAOPFLA 


SCD 


SCDDBMPS DL/I 





necace ———-—6 2. When control returns, check if 
Is 


MPS still active. If not active, 
exit to Figure 2-20.6, Step 3. 


Lec 


Nucleus 
ScD 
Address 


DLZXCBn2 — ——-f 3. If BPC XECB posted, exit to 


[xecs | Figure 2-20, Step 4. 


bs 4. if ABEND XECB posted: 





DLZXCBn3 —_—_— 
A. Set abnormal termination 
condition. 
B. Clear post bit in XECB. DLZXCBn3 
: fecs id 
C. Go to Figure 2-20, Step 5 to 
terminate BPC. 
5, Return to Step 1. 
DLZBPCOO — Batch Partition Controller CSECT DLZBPCOO 
Extended Description . Routine Label Extended Description Routine Label 





1. The XECBs are posted for the BPCWAIT 
following conditions: 


DLZXCBn2 


@ Process call on behalf of batch 
partition. 


@ EOJ has been encountered in batch 
partition. 


DLZXCBn3 
@ An ABEND condition has been 


encountered in the batch 
partition. 


. Flag SCDXECB is tested in 
SCDDBMPS. 
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Figure 2-20.4. Batch Request Processing (Part 1 of 2) | 7 | | 
2 INPUT —_ : PROCESS 7 = OUTPUT: 


From 
Figure 2-20 
Step 4 : 
TWA 


TWAWLIST 


1. Clear POST bit in BPC XECB. 
XCB1 . | 
———- 2. If batch partition at EOJ go 
. : to Step 10. Bh a. wee 


TWAXCBN2 


SYSTCA 


TCADLI | 





3. If a PST is not available go 
to Step 5. 


V/ 









S | 
TCA bo 3 ———-© 4. Indicate MPS task. 


TCADLIPA | |PSTPREAD 


PPST 


PST 
PSTPCT2 .- PPSTIND 





“R11 


XCB1 = Pp 5. Get address of call parameter 7 XCBICNT 
XCB1CNT 7 list. “| Address 


XCBICNT 


R13 


TWABPCSV XCBICNT oad 





6. Issue DL/I Call. 


DLZLI00 


Language Interface | 
Module: 






BALR 





DLZBPCOO — Batch Partition Controller CSECT DLZBPCOO 


Routine 





Extended Description Routine _ Label 


. This routine is entered from BPC 6. Entry point in the language interface 


WAIT routine when the BPC XECB 
(DLZXCBn2) is posted by the batch 
program request handler. 


R10 points to the call parameter list 
in the MPS Batch partition. 


. Macro DLZXCBI1 defines a DSECT 
representing the format of the MPS 
batch XECB and following fields 
used for communication between the 
batch and online partitions. 


The End-of-Job flag is set by 
DLZMPIOO termination routine in 
the field following the XECB. 


. Flag TCADLIPS indicates a PST is 
available. 


. Flag PPSTMPS in PPSTIND indicates 
this is an MPS task. 


BPCNOPST 
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module will be ASMTDLI or 
PLITDLI, depending on whether the 
user program is assembler or PL/I. 








Figure 2-20.4. Batch Request Processing (Part 2 of 2) 





INPUT PROCESS ) OUTPUT ) 
al. aS —— —— 7. Notify batch partition that the 
: DL/I call has been completed. 
DLZXCBn1 
Gam xe0st XECB=DLZXCBn1 


R15 — — : 8. If error return on XPOST: 


UY, 


A. Issue message DLZO0841. 


B. Go to Figure 2-20, Step 5 to 
dl a _I terminate BPC.. 


TWAMSG TWABPCSV 





9. Return to Figure 2-20, Step 3 
for BPC WAIT. 


10. Notify MPS Batch Partition that 
EOJ processing has completed. DLZXCBn1 


To 
Figure 2-20 
Step 5 
DLZBPCOO — Batch Partition Controller CSECT DLZBPCOO 
Extended Description Routine Label Extended Description Routine Label 





] 
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Figure 2-20.5. BPC Termination (Part 1 of 2) 
INPUT 


ee PROCESS smmesssmmesmmmes = : gms OUTPUT 


Figure 2-20 
Step 5 
DLZxcBn2 "> 1. Delete BPC XECB. 


Ld) 


R15 


ae 





MPCFLAG1 


3 
4, 
5. 


MPCFLAG 


MPCREBPC 


oO 


R13 


TWAMSG TWABPCSV 


CSA DL/I 
Interface 
CSAOPFLA List 
X'2C’ 
ae oer 3 
SCDDBMPS | 


» DL/I 
OPFL Nucleus 
CSADL! SCD 
Address 





MPCPT 


Entry 10. 


MPCSXECB 


DLZBPCOO — Batch Partition Controller CSECT 


Extended Description Routine Label 


. This routine is entered on normal 
or abnormal termination of BPC. 


. Bit MPCCNBPC is set by MPC when it 
determines that the batch partition no 
longer is active (i.e. ‘cancel’ replied to 
an access method message in batch 
partition). See ‘Note’. 


. Bit MPCREBPC is set by MPC when it 
determines that a BPC is still active for 
a partition and an MPS job is initiated 
for that same partition. See ‘Note’. 


Note: The test in Step 3 and 6 are 
done to suppress output of message 
DLZ1031. 


. Flag SCDXECB at SCDDBMPS 
indicates if MPS is active or not. 


9. Flag MPCPSTP in MPCFLAG is the stop 
partition indicator for DLZMPCOO. 


2. 


==» XECBTAB XECB=DELETE 
TYPE=DLZXCBn2 


If error returnon DELETE: 


—> A. Issue message DLZ082I. 


B. Set abnormal termination 
condition. 


. If BPC cancel indicator is not set, 


go to Step 6. 


Reset cancel BPC indicator. MPCFLAGI 
MPCCNBPC 


Go to Step 8. 


. If BPC for this partition to be 


reactivated, go to Step 8. 


. Issue message DLZ1031. 


lf MPC abended, go to Step 14. 


MPCPT 
Entry 


MPCFLAG 
MPCADBPC 


Set partition stop indicator. 


Turn on stop partition XECB DLZXCBO1 
post bit. XECB 


DLZBPCOO 


Extended Description Routine Label 


10. Note that the XPOST macro is not used 
to turn on the POST bit since the XECP 
was defined (DEFINED) in this partition 
(by DLZMPC00). 
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Figure 2-20.5. BPC Termination (Part 2 of 2) : 
INPUT -PROCESS OUTPUT 


11. If abnormal termination go to 
Step 13. 


12. Return to CICS/VS.: 


GHD > -Hec TYPE=RETURN 






To 
CICS/VS 








DFHPCP 
13. Set BPC abnormal termination 
completed indicator. TWA 
TWAMPSFG 
14. Return to CICS/VS — ABEND. 
oes DFHPC TYPE=ABEND 
ABCODE=DBPC 
CANCEL=YES 
To 
CICS/VS 
DFHPCP 
DLZBPCOO — Batch Partition Controller CSECT | DLZBPCOO 
Extended Description Routine Label Extended Description Routine Label 


Flag TWABPCOK indicates BPC 
ABEND processing was 
successful. 


DBPC ABEND code defines BPC 
failure for CICS/VS dump ID. 
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Figure 2-20.6. BPC ABEND Exit Routine 


INPUT PROCESS OUTPUT 
From 
| Figure 2-20 
Step 6 
—'— 1. Initialize message DLZ1041 
- and issue it. 
ITCAPCPSW | | 
TWA 2. Get this task’s MPCPT entry. R8 
es 
TWA 
— 3. Delete this task’s BPC XECB. 


DLZXCBn2 
XECBTAB TYPE=DELETE 
XECB=DLZXCBn2 
Ri R14 


——— -} 4. XPOST the MPS Batch XECB. ee 


é==) XPOST XECB=DLZXCBn1 


5. Go terminate BPC abnormally. 





To 
Figure 2-20.5 
Step 3 


DLZBPCOO — Batch Partition Controller CSECT DLZBPCOO 


Extended Description Routine Label Extended Description Routine Label 


1. This routine is entered from CICS/VS BPCABND 
if an abend occurs in the Batch 
Partition Controller Module 
(DLZBPCO0). 
2 MPCABEND 
( 
| Na 
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Figure 2-21. MPS Batch (Overview) 


INPUT Boe, PROCESS OUTPUT 
DOS/VS 


1. MPS Batch Initialization. 
(See Figure 2-21.1) 


2. MPS Batch Termination. 
(See Figure 2-21.2) 





To 
DOS/VS 
From 
‘Application 
Program 
3. MPS Batch Program Request 
Handler. 
(See Figure 2-21.3) 
To 
Application 
Program 
4. MPS Batch Message Writer. 
(See Figure 2-21.4) 
5. MPS Batch ABEND Handler. 
(See Figure 2-21.5) 
DLZMPIOO 
Extended Description Routine Label Extended Description Routine Label 





DLZMPIOO |DLZMINIT 
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Figure 2-21.1. MPS Batch Initialization (Part 1 of 3) 













INPUT PROCESS OUTPUT 
From 
Figure 2-21 
Step 1 
po 1. Read parameter statement and check for 
validity. 
(=== COMRG Macro 
IOAREA 
a= GET Macro 
== PUT Macro 
\OAREA > 2. If data is valid go to Step 5. 
> 3. If data is invalid, let operator reenter 
parameters. IOAREA 
PUT Macro tC} 


GET Macro 


IOAREA 


CANCEL 


{T 


- —— —- 4. Return to Step 1 to recheck data or cancel. 





CANCEL Macro 









PROGNAME  PSBNAME 


{| en |) eee 


IOAREA | 5. Save progname and psbname. 


DLI,progname,psbname 





PROGNAME 
[ p> 7. Load Application program. USERPROG 
posivs Cd] 
Coredmage (au LOAD TXT=NO Macro 
Library 
(=a) LOAD Macro 
DLZMPIO00 — MPS Batch CSECT DLZMPIOO 
Extended Description Routine Label Extended Description Routine Label 


1. If UPSI byte bit Ois on, input is from DLZMPI00 | DLZMINIT 
SYSLOG. Send message DLZO10A to CHECKIN 
have operator enter information. 


If UPSI byte bit 0 is off, input is from 
SYSIPT. 


Write message DLZO14A if end of file 
on SYSIPT. 


. Write message DLZ087A if data PARMERR 
invalid. 


. Read operator reply to decide if more GETCONS3 
parameters provided or if job cancelled. 


CHECKOK 


. If program not found, write message 
DLZ012I and cancel job. 
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Figure 2-21.1. MPS Batch Initialization (Part 2 of 3) 


INPUT PROCESS OUTPUT 
BG COMREG 8. Get partition identifier and modify XECB° 
names in all uses of XECBTAB macro by 











PIK this initialization routine. 


DLZXCBni 
DLZXCBn2 
DLZXCBnO 


DLZXCBn0 > 9. Check if MPS is active. 





R1 R14 
DLZXCBn0 XECBTAB 

(xz) XECBTAB TYPE=CHECK paces Ate 

XECB=DLZXCBn0 
DLZXCBn3 > 10. Locate ABEND XECB R14 
| XECBTAB 

=== XECBTAB TYPE=CHECK Entry 

XECB=DLZXCBn3 Address 


11. Define MPS Batch XECB for this 
partition. 





XECBTAB TYPE=DEFINE 
XECB=DLZXCBn!1 
ACCESS=XWAIT 


R14 
i DLZXCBn1 












ABNDAB ABNDPC 


ABSAVEAR PCSAVEAR 


a) Le 


AB Option - 
Table 


PC Option 
Table 






ae 12. Set up program check and ABEND 
handling routines. 


STXIT AB 


STXIT PC 


I] 


13. Wake up Master Partition 
Controller. DLZXCBn0 


XECB 
XPOST XECB=DLZXCBn0O 


14. Wait until BPC started. 


J 


XWAIT XECB=DLZXCBn1 


J 


DLZMPIOO — MPS Batch CSECT DLZMPIO00 


Extended Description Routine Label Extended Description Routine Label 


8. The XECB names referenced in the 
XECBTAB macros used by MPS batch 





11. (Cont'd) 


initialization routine are modified 
based on the partition that this MPS 
batch job is in. 


The value of the PIK in BG COMREG 
always reflects the currently active 
partition’s PIK. Because this job is 
currently active as it is checking the 
BG PIK, it will be the PIK of the 
partition where this job is. 


. If a start batch XECB (DLZXCBnO) 


is not found for this MPS batch job 
Partition (n), write message DLZ0891 
and cancel. When found, the 
XECBTAB/CHECK macro returns in 
R1 the XECB address and in R14 the 
XECB table entry. 


. Write message DLZ0891 if the ABEND 
XECB for this partition is not found. 


. Write message DLZ082I if DEFINE 
is not successful. 





Following MPS batch XECB (DLZXCBn1) 
are parameter fields used in communicat- 
ing with the online partition. Macro 
DLZXCBI contains the DSECT which 
describes this XECB and following fields. 


. Save address of PC option table for 


DLZMPRH (Figure 2-21.3, Step 1). 


. Notify the online partition (DLZMPCOO 


specifically) that an MPS batch job is ready 
to execute and write batch started message 


DLZO0811 if XPOST successful. 


If XPOST unsuccessful, delete MPS batch 
XECB (DLZXCBn1), write message 
DLZO84I, and cancel. 


. Wait is made for DLZBPC00 to post the 
MPS batch XECB (DLZXCBn1) to notify 
us it is initialized and has completed a 
DL/I scheduling call for us. 
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Figure 2-21.1. MPS Batch Initialization (Part 3 of 3) | 
INPUT :PROCESS = OUTPUT 


ue —— — - © 15. If error return on XWAIT: 
A. Write message DLZ084I. 


B. Go to Figure 2-21, Step 5 for MPS 
Batch ABEND Handler. | 


DLZXCBn0 


MPCPT Entry 
Address . 


. Check if online partition successfully 
initialized for MPS. 


XECBTAB TYPE=CHECK 
XECB=DLZXCBn0O 


MPCFLAG 
"MPCRC1 == 
MPCRC2 





RO > 17. Move program request handler f _COMREG 
DLZMPRH address to COMREG. 


Address 


f 


MVCOM 


DLZXCBn2 > 18. Locate BPC XECB. 


Ls = XECBTAB TYPE=CHECK 






XECBTAB 
Entry 
Address 






MPCPT System 
Entry TCA 


MPCTCA | | TCADLISA 
PST 


XCB1__| 
: an XCB1FLAG 
> 19. Set up parameter list for application 


TCASYAA PSTPSB program. COBOL, RPGHi, 


or Assembler 
PDIR 
PSBLIST PDIRADDR 
PDIRCODE 





DLZXCBn0 i. > 20. Check to be sure online partition is 


tae still there. 
(ae XECBTAB TYPE=CHECK 
XECB=DLZXCBn0 


USERPROG 


_> 21. Exit to application program. 
¢aam) Agaliestion 





| Program 


22. Go terminate. 


‘ a = = To 
DLZMPI00 — MPS Batch CSECT ae 2-21 DLZMPI00 
Extended Description Routine Label Extended Description Routine Label 








16. As the start partition XECBs are 
defined in DLZMPCO0, the corre- 


19. (con’t). . 


2-204 


sponding MPCPT entry is saved for 
each following the XECB. If the XECB 
is not at the same address as earlier, 
indicating there was a deletion and new 
define, or it no longer exists, write 
message DLZ0821 and DLZ0991, then 
ABEND. 


Write message DLZO9SI and the return 
code if a scheduling error indicated. 


Write message DLZ085I if BPC could MVCOM 
not be attached. 


XECBCHK2 


. If PL/I — a three-word list is set up 
with pointers to PCB list, amount 
of dynamic storage, and start of 
dynamic storage area for PL/I. 
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If Cobol, RPG II, or Assembler — R1 
points to first PCBADDR. 


The language indicator is set in the 
parameter field following the MPS 
batch XECB (See DLZXCB1 Macro). 


. If the start partition XECB is not. 


found, write message DLZ082!, 
then ABEND. 


. An application program runs as a 
subroutine of DLZMPIO0. 








Figure 2-21.2. MPS Batch Termination 
INPUT PROCESS OUTPUT 


From 
Figure 2-21 
Step 2 


1. Notify online batch partition 
controller for this partition XCB1 DLZXCBn2 


to terminate. XCB1ECB 
XCBIFLAG 
XPOST XECB=DLZXCBn2 


R15 —-—-—-— 2. If error return on XPOST: 





| 


A. Write message DLZO9OI. 
B. Go to Figure 2-21, Step 5, 


to ABEND. 
DLZXCBn1 — ——- 3. Wait for online BPC to terminate. 
paar ad wn XECB=DLZXCBn1 
R15 — — —-§ 4. If error return on XWAIT: 


l 


A. Write message DLZO9O0I. 


B. Go to Figure 2-21, Step 5, 
to ABEND. 


DLZXCBn1 — ——-B 5. Delete MPS batch XECB. 


eum «:co100 TYPE=DELETE 
XECB=DLZXCBn1 


6. The end. 


a EOJ Macro 





To 
DOS/VS 





DLZMPI00 — MPS Batch CSECT DLZMPIO0O 


Extended Description Routine Label Extended Description Routine Label 





1. This routine is entered when the 
application program completes. 


If the application program is written in 
PL/I code, the SCDLIPLI flag in the 
SCD is reset to 0. 


Macro DLZXCBI defines a DSECT 
representing the format of the MPS 
batch XECB and following fields used 
for communicating with the online 
partition. 


The end-of-job flag is set to tell 


DLZBPCO00 the batch partition is 
at EOJ and the BPC XECB is posted 
to tell DLZBPCOO to stop. 
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Figure 2-21.3. MPS Batch Program Request Handler (Part 1 of 3) 


» INPUT 


From 
Application 
Program 


R13 R1 


Address 


ABNDPC 


PCSAVEAR 


a 





Call List ie 
Address | 


Call List | 





Call List 
Address 


Call List 





DLZXCBn1 > 5 


DLZMPIOO — MPS Batch CSECT 


Extended Description 


1. This routine is entered on each call to 
DL/I made by the application program. 


During the first entry to DLZMPRH, the 
PL/I STXIT routine and savearea 
addresses from the PC option table are 
saved if the application program is 
written in PL/t. DLZMPRH also 
sets/reset$ a switch (SCDLIPLI flag in © 
SCD) on exit/entry to indicate whether 
current execution is in DL/I code or PL/I 
code. This is done to enable high level 
language debugging for PL/I to give 
diagnostic information if a program 
check occurs in PL/I code. 


PL/I reissues STXIT PC when application 
program starts. Therefore, DL/I must 
reissue STXIT to get control after PL/I 
issues its STXIT PC. 


. Write message DLZ0911 if more than 18 
parameters. 


. Ensure call list and addresses it points to 
are within batch partition (except for 
PCB). If PL/I, ensure that pointers 
pointed to by pointers, are within the 
batch partition. 
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ee 


PROCESS OUTPUT 





SAVER13 R2 


Address 
PC Option 
Table 





1. Reset PC STXIT if first call from PL/I. 





2. Ensure parameter list does not contain 
more than 18 parameters. 


3. Check if all user parameter list addresses 
which should be, are within batch 
partition. 


4. Move parameters to area following MPS 
batch XECB (DLZXCBn1). 


XCBIPARM 





5. Notify BPC a DL/I call is ready to be 
processed. 


Gaz} XPOST XECB=DLZXCBn2 


6. Wait for BPC to complete processing 
the call. 


(qm) WAIT XECB=DLZxcBn1 


DLZXCBn2 


feed 


DLZMPI00 


Routine Label Extended Description Routine Label 


3. (cont'd) 


Write message DLZ092I if there is a bad 
address and ABEND. 


4. Macro DLZXCB1 defines the DSECT 
describing the DLZXCBn1 XECB used 
for communicating with the online 
batch partition controller (DLZBPC00). 


5. If error return on XPOST, write message 
DLZ084I, then ABEND. 


6. If error return on XWAIT, write message 
DLZ084I, then ABEND. 
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ae 


gs 


Figure 2-21.3. MPS Batch Program Request Handler (Part 2 of 3) 
INPUT PROCESS OUTPUT 


DLZXCBn0 


MPCPT K ; . 
XECB Entry | —= > 7. \f an error occurred during online 
MPCELAG processing, go to Step 14. 


MPCPT 
Entry 


MPCPT System 
Entry TCA 


—~ 8. If error return code in TCA, go to Step 14. 


TCA 


TCASYAA 








System 


TCA — > 9Y9.If no PST, go to Step 12. 


TCADLHI 


J 


System 
TCA PST —— -p 10. If a task or system ABEND, go to Step 14. 


TCADLISA PSTABIND 





PST PST 


PSTUSER PSTUSER 
PSTSEGL 
PSTSEG User |/O Area 











11. Move data to user area. 


Retrieved 
Segment 
DLZMPIOO — MPS Batch CSECT DLZMP100 
Extended Description Routine Label Extended Description Routine Label 


7. MPCERR flag indicates an error condi- 
tion occurred during BPC processing. 
Write message DLZ1001 if on. 


. Write message DLZ102I including the 
return code if present. 


. The storage acquired indicator 
TCADLIPS is turned on by online 
nucleus DLZODP when the PST is 
acquired. 

If no PST, it just did a TERM call. 


. Write message DLZ098I if PST con- 
tains an error. 


. Write message DLZ100I if the data 
addresses are invalid. 
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Figure 2-21.3. MPS Batch Program Request Handler (Part 3 of 3) 
INPUT PROCESS OUTPUT 


DLZXCBn0 — — —— ; 12. Check if MPC is active. 


@um XECBTAB TYPE=CHECK 


XECB=DLZXCBn0 


SAVER13 


Ps. Return to application program. 


Register 
Save Area 





To 
Application 
Program 


14. Go to ABEND handler, Figure 
2-21, Step 5. 





DLZMPI00 — MPS Batch CSECT DLZMPI00O 


Extended Description Routine Label Extended Description Routine Label 


‘ 





12. If the START PARTITION XECB is NODATA 
not at the same address as when the 
batch job started indicating there was 
a deletion and new define, or if it no 
longer exists, write message DLZ082I1 
and go to Step 14. 
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Figure 2-21.4. MPS Batch Message Writer 


From 


INPUT Galler PROCESS OUTPUT 





1. Convert message number to 10 AREA 
printable decimal. 


Message 1D 





2. Find message text. 


DLZMMSGT 
(ueesp Message Text 
Module 
IOAREA 3. Put message to console and printer 









unless caller indicates no message 
should be written to one of them. 


PUT CONSOLE 


2) PUT PRINTER 


Caller 
Registers 


4. Clear output area and return. IOAREA 


To 
Caller 


DLZMPI00 — MPS Batch CSECT DLZMPI100 


Extended Description Routine Label Extended Description Routine 











1. This routine is entered when a 
message is to be written to SYSLOG 
and/or SYSLST. 


2. The message module DLZMMSGT 
includes all messages that can be 
issued by MPS and is used in both 
the batch and online partitions. 
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Caller 
Registers 


SYSLST 


Label 
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Figure 2-21.5. MPS Batch ABEND Handler © 


INPUT AB Entry* PROCESS OUTPUT 
1. Set AB entry indicator. FLAG 
RO 2. Save ABEND code and go to 
[ Step 4. ABREASON 
PC Entry* 


3. Set PC entry indicator. FLAG 

4. If error occurred while in PL/I code, 
modify return address and branch to 
PL/I STXIT PC routine. 


All Other . 
Entries* 5. Write error message DLZO9Q6I. 


dE 
; 


6. Notify online an ABEND 
condition exists. DLZXCBn 3 


I 


XPOST XECB=DLZXCBn3 


DLZXCBn1_ == Se 


Li 4 
~ 


. Delete this partition’s MPS 
batch XECB. 


XECBTAB TYPE=DELETE 
XECB=DLZXCBn1 


J 


FLAG UPSI Le see 8. Cancel if entered via AB or PC 
STXIT and dump not required. 


CANCEL 
9. Get a dump and end. 


JDUMP 


J 


DLZMPIO0O — MPS Batch CSECT DLZMP100 
Extended Description Routine Label Extended Description Routine 


* There are three entries to 
this routine: 


1. AB STXIT 
2. PC STXIT 


3. The MPS Batch Initialization, MPS 
Batch Termination, and MPS Program 
~ Request Handler routines (whenever 
XPOST is needed to tell online that 
batch completed unsuccessfully). 


. The AB output area is located in a ABNDAB 
dump following the DC C ‘AB SAVE’ 
characters. 


The AB reason code is located in a 
dump following the DC C ‘AB 
ABEND CODE’. 


. The PC output area is located in a ABNDPC 
dump following the DC C ‘PC SAVE’ 
characters. 


. The address of the PL/I STXIT PC 
routine was saved during the first entry 
to DLZMPRH (see Figure 2-21 .3, Step 1). 

_After PL/I completes diagnostic infor- 
mation, processing returns to modified 
address in DLZMABND. 
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Figure 2-22. Stop Transaction 


INPUT From 
CICS/VS 
DFHPCP 


R1 ceed om anme 


DLZXCBOO 
Address 





DLZMSTPO — MPS Stop Transaction CSECT 


1. Module identifier (DLZMSTPO) 
is defined here. 


Write message DLZO80I if 
DLZXCBO0 does not exist — 
MPS not active — and go to 
Step 3. 


. Note that the XPOST macro is 
not needed to turn on the POST 
bit because stop transaction 
XECB (DLZXCBO00) is defined in 
the same partition as this module. 
DLZXCBO00 is defined by 


DLZMPC00. 





DLZMSTPO |DLZMSTPO 


PROCESS OUTPUT 


1. Locate stop transaction (MPS) 
XECB. R1 


DLZXCBOO 
Address 


Se XECBTAB TYPE=CHECK 
XECB=DLZXCBOO 


2. Turn on POST bit in stop 








: DLZXCBOO 
transaction (MPS) XECB. 
X‘80' 
3. Return. 
om} DFHPC TYPE=RETURN 
To 
CICS/VS 
DFHPCP 
DLZMSTPO 


Routine 
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Figure 2-23. Queuing Facility (Overview) (Part 1 of 2) 


INPUT From PROCESS OUTPUT 
Caller 


QENQDEQ (See Note) PST QWA 


es PSTRTCDE 
1. Initialize registers and 


data fields. R1-R15 





PST iss Pras 2. If requested function is 


‘purge’, exit to QPUR routine. 
= 


Process Purge 
Upon return, go to Step 7. 





Requests 
2-23.1 







First Half Second Half | L 3. Locate RDB, if any, for ae 

of resource of resource given resource ID. vee : 

ID ID If no RDB located, go ry 
to Step 7. Address 





PST ee 4 
2 —_ — 4. If requested function is If not found: R2 
| ‘dequeue’, exit to ODEO 


Last Position 


routine. on Queue 





Process Dequeue 


Requests 
23.2 





Upon return, go to Step 7. 


DLZQUEFO — Queuing Facility CSECT DLZQUEFO 


Extended Description Routine Label ipti R 


Note: QENQDEQ is the general purpose 
entry point for requests to ‘enqueue; 
‘dequeue’, or ‘verify’ a resource, or to 
‘purge’ all enqueues for a task. 


1. Module identifier (DLZQUEFOvrnp) QENQDEQ 
is defined here. The level format is 
vinp; where ‘v’ is the version, ‘r’ is 
the release, ‘n’ is an additional 
identification number, and ‘p’ is the 
latest PTF number that has been 
applied. 


. The proper queue head is first located |QLOCRDB 


by hashing the resource ID. That 
queue is then searched for a RDB 
with the same resource ID. If found, 
its address is passed back compli- 
mented. Otherwise, the address of 
the last position on the queue is 
returned. | 
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rN 


Figure 2-23. Queuing Facility (Overview) (Part 2 of 2) 
INPUT PROCESS OUTPUT 


‘PST — a 5. If requested function is 


PSTFNCTN ‘enqueue’ or ‘verify’ 


exit to QENQVER routine. 


QENQVER 


Process 
Enqueue/ Verify 
Requests 

2-23.3 





(= 








Upon return, go to Step 7. 
— 6. If the PSTFNCTN Field 


PSTFNCTN contains an unrecognizable 


function code, terminate 


i 
— 
| 













the task. 
SCD . 
DABEND 
Gm (oo) aseno 
SCDERRMS Routine. 
7. Return. R15 
0 — if normal exit 
4 — if error resulting 
in termination 
occurred 
To 
Caller 
DLZQUEFO — Queuing Facility CSECT DLZQUEFO 
Extended Description Routine Label 








6. Message DLZ2671 is issued. 


7. This routine is used for common 
processing during exit for enqueue, 
dequeue, verify, and purge request. 


If processing is successful, a 0 return 
code is set in R15. Otherwise, the 
PST return code field (PSTRTCDE) 
is checked for error return codes. 

If present, the R15 return code is 
set to 4 and the registers are saved 
in the ABEND save area. 
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Figure 2-23.1. Process Purge Requests 
me INPUT PROCESS OUTPUT 


From 
Figure 2-23 
Step 2 


QPUR (See Note) 


|____» 1, Scan each RRD attached to 
PST the PST RRD chain. For 


PSTRRDF each RRD: 
PSTRRDL ; 
A. Unchain the RRD from 


the PST forward chain 
by storing the address 
of the next RRD in the PST 


‘first’ PST pointer. ~v 


B. If the task is an owner of 
the resource, the owner- 
ship is released and new 
owners, if any, are located 
and promoted. 





RRD 


RRDFLAG 





C. If the task is not an owner, 
the RRD is unchained from 
the RDB-RRD chain and its 
space is returned to the free 
block queue. Flag parameters 
are then passed to any other 
waiting task. PST 


PSTRTCDE 


2. When all RRDs on the chain have 
been processed, the ‘last RRD’ 
pointer is reset. Also, the number 
of resources owned and the wait 
chain pointer are both set to ae 


zero. | 
| PSTRRDL 
3. Exit to QRETURN. 


PPST 


PPSTCW 





To 
Figure 2-23, 
Step 7 


DLZQUEFO — Queuing Facility CSECT DLZQUEFO 


Extended Description 


Note: This routine is used to purge all 
complete or outstanding enqueue requests 
for a given task. 


1. A. The address of the next RRD 
is saved because it would be 
destroyed when the current 
RRD is returned to the free 
spaée. 


This routine is called to 
relinquish ownership of a 
resource by dequeuing the RRD 
for the task. It is entered by 


purge at entry point QDEQPUR 
to avoid the unnecessary 


overhead of unchaining the 
RRD from the PST. 
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Figure 2-23.2. Process Dequeue Requests (Part 1 of 2) 
INPUT PROCESS OUTPUT 


From 
Figure 2-23 
Step 4 


QDEO (See Note) 


1. If an RDB previously located 
(Figure 2-23, Step 3), locate the 
RRD. 


i 
a 


RRD Address 


If no RRD exists, exit to 
QRETRUN (Figure 2-23, 


Step 7). 
PST oe 2. Decrement by 1, the ownership 
PSTOLEV count for the specified RRD 
level. 
or 
RRD ——— ¥— 3. If the remaining ownership count or 
is not zero (or if it is zero, but 
the level is not the maximum RRDNOEX 


for the RRD), pass any FLAG 
parameters to the waiting tasks. 


Then go to Step 6. Bee 


PSTRTCDE 


DLZQUEFO — Queuing Facility CSECT DLZQUEFO 


Extended Description Routine Label Extended Description Routine Label 


Note: This routine is used to process 
a request to dequeue a resource. 
1. QLOCRRD 
2. This routine is also used by ‘verify’ 
processing to dequeue a resource 
that was enqueued due to a required . 
wait. 
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Figure 2-23.2. Process Dequeue Requests (Part 2 of 2) 


INPUT PROCESS ) OUTPUT 
RRD 4. If any counts are left at 
lower levels: 
[RRDNORO | 


A. Lower current level of 
ownership by task. 


B. Promote any new owners 
made eligible by the 
decrease in level. 

C. Go to step 6. 

5. If no counts are left at any 
level: 


A. Release the resource. 


B. Promote any new owners 
made eligible by the 


release. 
6. Exit 
To 
Figure 2-23 
Step 4 
Extended Description Routine Label Extended Description Routine 





QDEQVER3 
QDEQVER4 
QDEQVERS 
QPNDWCM 


5. Entry point QDEQPUR in this QRELRSC 
routine is used by ‘purge’ 
processing to release a resource 


already unchained from the 
PST/RRD chain. 


QDEQVERX! 


QRELRSCX 
QDEQPURX 
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Label 





Figure 2-23.3. Process Enqueue/Verify Requests (Part 1 of 2) 


INPUT 


From 
Figure 2-23 
Step 5 


R2 


DLZQUEFO — Queuing Facility CSECT 


Extended Description 


Note: This routine is used to process 
enqueue and verify requests. It deter- 
mines the type of enqueue (or verify) 
and enters the proper routine for the 
type. The possible types are: 


@ New resource enqueue — The enqueue 
of a resource not currently enqueued. 


Existing resource enqueue — The 
enqueue of a resource currently 
enqueued, but not by this task. 


Re-enqueue — The enqueue of a 
resource currently enqueued by 
this task. 


Processing of enqueue and verify 
requests is essentially the same. The 
difference is that on the return from 
verify processing, the user is not the 
owner of the resource. 


PROCESS OUTPUT 








QENQOVER (See Note) 


. Check if RDB exists. 
If RDB does not exist: 


= 


New Request 


Enqueue 
2-23.4 





Upon return, go to Step 6. 


2. If RDB does exist, call 
OQPFLAGP to pass any 
flag parameters to 


waiting tasks. est 


PSTRTCDE 


3. Locate RRD or position 
on chain. 


R3 


4. |f RRD exists: 


(=) 


QREENQ 


Existing Resource 
Enqueue 










2-23.5 


Upon return, go to Step 6. 


DLZQUEFO 


Routine Label Extended Description Routine Label 
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Figure 2-23.3. Process Enqueue/Verify Requests (Part 2 of 2) 
INPUT PROCESS OUTPUT 


5. If RRD does not exist: 


Re-enqueue 
2-23.6 





6. Exit 
To 
Figure 2-23 
Step 5 
DLZQUEFO — Queuing Facility CSECT DLZQUEFO 
Extended Description Routine Label Extended Description Routine 
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Figure 2-23.4. 
INPUT 


New Request Enqueue 
PROCESS 


From 
Figure 2-23.3 
Step 1 


ONRENQ (See Note) 


| 
| 


. If the function is ‘verify’, 
processing is complete 
at this point because the 
resource is available. Go 


PST fae 


PSTFNCTN 


OUTPUT 


aeons 
| 


A. 


3. Exit. 


DLZQUEFO — Queuing Facility CSECT 


Extended Description Routine 





Note: This routine is used to process 
an enqueue (or verify) request for a 
resource that has no current enqueues 
outstanding. 

2. A.  R2 points to RDB chain 
location. R3 points to RRD 
chain head in RDB. 





to Step 3 to return to 
caller. 


2. If the function is ‘enqueue’: 


Build and initialize an 
RDB and chain it on the end of 
the proper RDB queue. 


Build and initialize a 
RRD and attach it to 
both the RDB and PST 
RRD chains. 

Define the task as a 
resource owner. 





To 
Figure 2-23.3 
Step 1. 


DLZQUEFO 


Label Extended Description _ Routine Label 
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Figure 2-23.5. Existing Resource Enqueue 
INPUT nae PROCESS OUTPUT 


From 
Figure 2-23.3 
Step 4 


QREENO (See Note) 









—_—— 1. If the requested level is not 
higher than the current 
maximum for the task, the 
resource is available. Therefore: 


RRD PST 


RRDMAXL PSTQLEV 


ne — Ee A. If the requested function is 


‘verify’ go to Step 5. 
lis 


B. Otherwise, increment ownership 
count for the level by one. 
Go to Step 5. RROD 
RRDNQUP 
RRDNQEX 






—__. _.. 2. If the requested level is 
compatible with the 
current maximum for the 
resource and if the 
requested function is 


RDB PST 
RDBMAXL PSTQLEV 
PSTFNCTN 





A. ‘Verify’ — Go to Step 5. 


B. ‘Enqueue’ — Define the task 
as an owner at the new level 
and go to Step 5. 


3. Otherwise, do deadlock 
detection and wait for 
resource availability. 


4. If function is ‘verify’, dequeue 
the enqueued resource. 

















5, Exit. 
To 
Figure 2-23.3 
Step 4 
DLZQUEFO — Queuing Facility CSECT | DLZQUEFO 
Extended Description Routine Label Extended Description Routine Label 





Note: This routine is used to process 
an ‘enqueue’ or ‘verify’ for a resource 
that is currently enqueued by the 
requesting task. 


1. Online tasks are picked before 
MPS tasks. 


2. Within a class, the task with the 
fewest resources currently enqueued 

Zi is chosen. 

3. In the event of a tie, the choice 
is arbitrary. 


3. The task will be defined as an owner 
of the resource during ‘dequeue’ pro- 
cessing for other task. 


The QDLKDTN routine detects a 
deadlock condition and resolves the 
deadlock by picking and terminating 
one of the tasks involved. The task 
terminated is selected as follows: 
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Figure 2-23.6. Re-enqueue 











INPUT PROCESS OUTPUT 
From 
Figure 2-23.3 
Step 5 
QERENO (See Note) 
RDB PST 
. If resource is available 
at requested level: 
| A. If function is ‘verify’, 
go to Step 3. 
B. Build RRD and chain to 
RDB and PST. 
C. Define the task as a 
resource owner. 
D. Go to Step 3. 
> 2. If resource is not 
available at requested 
level. 
A. Build RRD and chain to 
RDB and PST. 
B. Do deadlock detection 
| and wait for resource 
availability. 
C. If function is ‘verify’, 
dequeue the enqueued 
resource. 
3. Exit. 
To 
Figure 2-23 
Step 5 
DLZQUEFO — Queuing Facility CSECT DLZQUEFO 
Extended Description Routine Label Extended Description 








Note: This routine is used to process an 
‘enqueue’ or ‘verify’ request for a 
resource that is currently enqueued, but 
not by the requesting task. 


To build and chain RRD, call 
QBLDRRD. 


To make task a resource owner, 


call QDASOWN. 


To build and chain RRD, call 
QBLDRRD. 


The task will be defined as an 
owner of the resource, during 
‘dequeue’ processing for other 
tasks. 














The QDLKDTN routine detects a 
deadlock condition and resolves the 
deadlock by picking and terminating 
one of the tasks involved. The task 
terminated is selected as follows: 


1. Online tasks are picked before 
MPS tasks. 


. Within a class, the task with the 
fewest resources currently enqueued 
is chosen. 


. In the event of a tie, the choice 
is arbitrary. 
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Routine 





Label 
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Figure 2-24. Visual Table of Contents for DL/I Utility Modules HIPO Charts 


Data Base 
Recovery 
Utilities 


DLZUDMPO 
DB Data set 
Image Dump 


2-25 


DLZUCUMO 

DB Change 

Accumulation 
2-26 


DLZURDBO 
DB Data Set 


Recovery 


2-27 


DLZBACKO 
DB Change 
Back-Out 

2-28 


DLZLOGPO 
Log Print 


2-39 
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Data Base 
Reorganization 
Utilities 


DLZURULO 
HS DB 
Unload 


DLZURRLO 
HS DB 
Reload 
2-30 





DLZURGUO 
HD DB : 
Unload 

2-31 


DLZURGLO 
HD DB 
Reload 
2-32 


DL/I 
Utility 


Modules 





ACB 
Utility 


DLZUACBO 
ACB Creation 
(Overview) 

2-33 


Material - Property of IBM 


DB Logical 
Relationship 


Utilities 


DLZURPRO 
Prereorgani- 
zation 

2-34 


DLZURGSO 
DB Scan 


2-35 


DLZURG10 
Prefix 
Resolution 


2-36 


DLZURGPO 
Prefix 
Update 


2-37 


DLZTPRTO 
Trace Print 
Utility 

2-41 





DLZDSEHO 
Workfile 
Generator 

2-38 





ME 


Figure 2-25. DB Data Set Image Dump 
INPUT PROCESS OUTPUT 


From 
DOS/VS 






DLZUDMPO: 





> «61. Read control card and 


Control validate contents. 
Card(s) 


SYSIPT 2. Determine device type for 


output file specified 
and open file. 


—_ 3. Load DMB and obtain 
physical attributes of 
data set. 


4. Write DL/I header to 
output file. 


SYSO11 
(SYSO12) 


5. Open input file and read 
segments sequentially, add 


Dixie Set 8-byte prefix to identify the 
specified in segment, and block and 
control card write the logical record 


(prefix + segment) to the 
output file. 


6. Write image dump messages. 


SYSLOG 


7. Return to Step 1 if there are Statistics 
more input control cards. Report 





To 

DOS/VS 
DLZUDMPO — DB Data Set Image Dump Utility , DLZUDMPO 
Extended Description 


1. Read and validate control statement. 
Write the following messages as needed: 


DLZ302I - Column 1 not D 

DLZ303I - Column 2 not 1 or 2 

DLZ304I - DBD name field not specified 

DLZ307I - Input filename not specified 

DLZ308I - Output filename not specified 

DLZ309I - Error(s) found in control 
statement 


DLZ310I - Image of erroneous control 
statement 


. DLZDVCE macro obtains data from . 
PUB. Device type may be tape or DASD. 


. The header record contains information 
that allows the use of the image dump 
file by the DB data set recovery utility. 
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Figure 2-26. DB Change Accumulation (Part 1 of 2) 
INPUT PROCESS 






‘From DOS/VS 


. Get time and date of this 
execution. 





. Call Input Card Processor 
(Figure 2-26.1) to read and 
Control Cards process control cards. 





3. If no CUMOUT, but LOGOUT, call 
Write Logout (Figure 2-26.2) 
to write logout. 


4. If CUMOUT, loaded sort program 
(SORT) will sort LOGINxx records 
and call Write Logout (Fig 2-26.2) 
and Sort Module (Fig 2-26.3). On 


LOGINO1-99 CUMIN 
i completion of sort, go to step 6. 


(optional) 





From Fig. 
2-26.2 


Entry for error detected in 
DLZUC150 (Write Logout). 


5. Establish Addressability. 


DLZUCUMO — Change Accumulation Utility 


Extended Description Routine Extended Description 


. Header line is printed on SYSLST. 
. Three returns as follows: 
@ Error — issue error message. 
@ No accumulation output, call Write 
Logout (Fig 2-26.2). Then issue 
‘successful run message. 


@ Accumulation output, call SORT. 


. SORT is invoked by LOAD and 
BALR. At exit 35, Sort Module (Fig 


2-26.3) is called. 


. This entry point is necessary because 
Write Logout, not knowing who called 
(DB Change Accumulation or SORT), 
must return to this module if an exro 
was detected. 
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OUTPUT 


LOGOUT 


LOGOUT 


(optional) 


DLZUCUMO 


Routine | Label 


Figure 2-26. DB Change Accumulation (Part 2 of 2) 


INPUT PROCESS 
PROCFLAG —— em 5, 6. Call Write Messages (Figure 2-26.4) 
(__ _ to write completion message. 
7. Exit. 


DLZUCUMO — Change Accumulation Utility 


Extended Description Routine Label Extended Description 


6. May be OK message or error message 
from SORT, Write Logout, or Sort 
Module. If PROCTERM X‘01’ bit is 
on in PROCFLAG, an error occured. 





OUTPUT 
SYSLST SYSLOG 
Return to 
DOS/VS 
DLZUCUMO 
Routine Label 
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Figure 2-26.1. Input Card Processor (DLZUCCTO) 





OUTPUT 


INPUT ; PROCESS 

From Fig. 

2-26 Step 2 
1. Read control cards, validity ; ‘ ss 
_ check, and create Log Input ere 

SYSIPT Specification Table. [ 
2. Save appropriate control card CUMCONST 
data. 


3. Issue GETVIS for DB and 


Date/Time Table, if required. DB Table Date/Time 


Table 


4. Check for valid DMB in CIL. 
DMB from Prepare DB Table and Date/Time 
CIL Table in alphabetical order. 


5. Test for valid combination of 
cards or no input (use default 


values). 


6. Return to caller. 


DLZUCUMO — Change Accumulation Utility 


To Figure 
2-26 Step 3 


DLZUCUMO 


Extended Description : Routine Label Extended Description Routine 


1. Possible card types are: 


@ ‘ID’ specifies db number, max key 
length, number of sort, work, and 
log files. 


‘DBO’ describes records to be 
accumulated from input and 
written to CUMOUT. 


‘DBI’ describes records to be 
written to new log file. 


‘LY’ describes a log input file. 
Error card — call Write Message 


(Fig 2-26.4) to write appropriate 
error message. 


. Data from control card(s) is saved in a 
dsect residing in DLZUCUMO, 
addressable by all modules in this 
utility. The dsect name is DLZUCUMC. 





2-226 § Licensed Material - Property of IBM 


3. Tables are not required if *ALL was 


specified. The number of entries in 

each table is equal to the number of 
data bases as specified on the ID control 
card or default of 16. 


. This information is filled from the DBO 
and/or DB1 card(s) if present. 


. If any errors occur during steps 3, 4, 


of 5, call Write Messages (Fig 2-26.4) 
to write error messages and exit. 





ae N 


Maes 


Figure 2-26.2. Write Logout (DLZUC150) 


INPUT Eran Caller PROCESS OUTPUT 
(See Note) ; 


Papers 1. Establish addressability and save sort 
List parameter list address. 


A (record) 
A (rtncode) 


2. If initial entry, open LOGIN and 
LOGOUT (if needed). Obtain work- 
space via GETVIS. 


3. Read log records bypassing all but 
‘2F’ and ‘50’. 


LOGINO1-99 
4. The ‘50’ record is bypassed under 
certain conditions. 
5. Write the selected ‘50’ record to 
output log file. 
LOGOUT 
6. Pass selected log records to SORT 
module and return. 
Log record 
7. If any error occurs, exit to DLZUCUMO [| 
(Fig 2-26, step 5). 
8. After all input records are processed, 
return to caller. 
Return to 
| Calier 
DLZUCUMO — Change Accumulation Utility DLZUCUMO 
Extended Description Routine Label Extended Description Routine Label 


This program has two entry points: 


4. (con’t) 


@ DLZUC150 — from SORT. 
Entered when SORT wants 
another input record. 


@ No dbname match and log date/time 
less than purge date/time. 


. Write log record for the following ‘50’: 


DLZUEX15 — from Figure 2-26, 
step 3 (DLZUCUMO). 


*ALL on DBI card. 


3. On EOF, the file is closed. If more input 
specified, xx (LOGINxx) in the DTF 
or ACB is incremented by 1 and the 
next log file is opened. 


Dbname match and dbname on DB1 
card. 


No dbname match and *OTHER on 
DB1 card. 
4. Bypass ‘50’ record for the following: 


@ *ALL and log date/time less than 
purge date/time. 


@ dbname match and log date/time 
less than purge date/time. 


@® No dbname match and “OTHER 
not specified. 
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Figure 2-26.3. Sort Module (DLZUC350) 


INPUT From SORT g# PROCESS 











Parameter Sorted log 
List record 









A (logrec) 


A (retncod) 


OUTPUT 


1. Receive log record from SORT. 


2. Initial entry processing as follows: 


A. Process ‘2F’ record and obtain 
workspace via GETVIS. 


B. Determine device type for CUMIN 
(if specified) and CUMOUT. 


Sorted log 
record 


[| 





4, When next log record needed, return 


to SORT. 


oS 3. Sorted log records are merged with 
matching CUMIN records (if specified) 
and records written to CUMOUT. 


CUMOUT 


Parameter 
List 





5. When all log records and CUMIN 
records are depleted, return to SORT. 


DLZUCUMO — Change Accumulation Utility 


Extended Description Routine Label 


1. SORT returns at EOF with an indication 
that no more records exist. 


DLZUEX35 


. DLZDVCE macro obtains data from 
PUB. Device type may be TAPE or 
DASD. 


TSTEODDB 


. The following merging logic is used for 
comparison of LOGIN and CUMIN to 
create CUMOUT. 


@ For every new DMB name (data set 
ID), an accumulation header record 
is written either from the CUMIN 
record or created from the ‘2F’ 
record. 


Every CUMIN record is purge 
checked by date/time as specified 
by the user. The DB table as 
modified by DLZUC150 is used 
for a specific DMB or the *ALL/ 
*OTHER purge date is used as 
applicable. 


If a matching log record is found, 
all log records with the same data 
ID will be merged with the CUMIN 





27228 


A (retncod) 
Return to | 
SORT 
Return to 
SORT 


DLZUCUMO 


Extended Description 


Routine | 


3. (con’t) 
record and written to CUMOUT. 


If there is no matching log record, 
the CUMIN record is written to 
CUMOUT unchanged. 


If log records exist but no CUMIN, 
the log records are accumulated by 
data ID and written to CUMOUT. 


. A ‘delete’ return code is given to SORT 
so that SORT does not further process 
the current record. SORT will prepare 
the next input record and enter this 
program at step 1. 


. Free all work areas and close CUMIN 
and CUMOUT. 
Indicate ‘no return’ to SORT. 
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Figure 2-26.4. Write Messages (DLZUCERO) 


INPUT Peon Caller PROCESS OUTPUT 
(See Note) 
DLZCUMMO 1. Obtain address of the message csect 
mg 4d (DLZCUMMO) and output DTF. 
| 
R2 eae ee __ Ss 2. If multi-part message and first time 
az pee 
r— A. Calculate address of message. 
| B. Set Register 2 to next print 
position. R? 
| C. Go to step 5. | 
R1 as |. ys 3. Calculate address of message if 


aa | 
single part message 


4. Write output message. | —<_“ 


SYSLST SYSLOG 
5. Exit. 
Return to 
Caller 
DLZUCUMO— Change Accumulation Utility DLZUCUMO 
Extended Description Routine Label Extended Description Routine Label 


Note: This module can be called by 
DLZUCUMO, DLZUCCTO, 
DLZUC150, or DLZUC350. 


. The address of the output DTF which 
has already been opened, is found in 
the CUMCONST table. 


. Multi-part message is indicated by TESTR2 
negative R2. 


. Rl contains message number. MSGCOMM 


. Output can be to SYSLST or SYSLOG. MSGWRT 


RETURN 
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Figure 2-27. DB Data Set Recovery (Part 1 of 2) 
INPUT PROCESS 


From 
DLZRRCOO 


1. Obtain DL/! control block 


aaa 
addressability via GSCD 
call. 


2. Read and process control 


cards. 
Control Statement 
Processor 
2-27.1 
3. Determine device type for 
each input. 
4. Open data set (open ACB 
call). 
=m» DLZDLOCO 
5. If processing only log 
records, go to Step 10. 
ee 


6. Open input file(s) and 
process DL/! header 
information. 













DLZURDBO — DB Data Set Recovery Utility 


Extended Description Routine Label 









2. There are. three returns: 
@ No errors — continue processing. 


@ No input statements — terminate 
processing. 


@ Error — issue error message and 
terminate processing 


- DLZDVCE inacro obtains data from 
PUB. Device type may be tape or 
DASD. 


. DUMPIN file is mandatory and may 
be output from DLZUDMPO or 
DLZURULO. 


CUMIN file is optional and is output 
from DLZUCUMO. 
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OUTPUT 


DLZURDBO 


Routine 


ye 


Figure 2-27. DB Data Set Recovery (Part 2 of 2) 


INPUT 


7. 


10. 


LOGINO1 to LOGINxx 





12. 
13. 


14. 


DLZURDBO — DB Data Set Recovery Utility 


Extended Description 


7. Records are read from DUMPIN and 
CUMIN via GET calls and are written 
in ascending order (compare by key 
if KSDS, and by RBA if ESDS). The 


proper PSTFNCTN is supplied for 
call of buffer handler. 


. LOGIN file is optional. 


. LOGINO1 to LOGINxx files are 
processed sequentially. 





PROCESS 


11. 


OUTPUT 


Read and merge data and 
write records. 


= 


Data Set 


DLZDBHOO 


DB Buffer 
Handler 
2-15 












. Close input files. 


. If no log input is to be 


processed, go to Step 13. 
Open LOGIN file. 


Process all log records for 
this data set. 


ee 


Data Set 


DLZDBHOO 


DB Buffer 
Handler 
2-15 






Close LOGIN file. 


Close Data set (close ACB 
call). 





DLZDLOCO 


Open/Close 
2-14 







Exit. 





DLZURDBO 
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Figure 2-27.1. Control Statement Processor 


INPUT eee PROCESS OUTPUT 
Figure 2-27 
Step 2 
STE ) 
eeeueuan te 1. Read control statements and 
check for validity. 
2. Create log input specification Log Input 
table Specification Table 
SYSIPT . 


3. Test for default tape log. | | 


4. Return to DLZURDBO. 


To 
Figure 2-17 
Step 3 


DLZURCCO — Contro! Statement Processor CSECT | DLZURDBO 


Extended Description . Routine Label Extended Description . Routine Label 





1. Possible card types are: DLZURCCOQ GETCARD 


‘S’ — identifies data set 
to be recovered. 


‘LI’ — describes log input 
file(s). 


Write the following messages as needed: 


DLZ302I - Column I not S 

DLZ304I - DBD name not specified 

DLZ307I - Input filename not specified 

DLZ310I - Image of erroneous control 
statement 

DLZ342I - Invalid number of log files 

DLZ372I - Invalid log buffer size 


. One entry in table describing file type, 
logical unit, and buffer size for each 
log file. 


. If no log file is specified, issue macro CLEANUP 
DLZDVCE to see if SYSO13 assigned 
to tape. 
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Figure 2-28. DB Change Backout 


INPUT From DL/! aa PROCESS OUTPUT 
Log Input 
Specification 
1. Read control cards and create log input Table 
specification table. 
= feet 
— 2. Obtain DL/I control block addressability 
PST SCD via GSCD call. Open log input for read 
> 3. Read and deblock DL/I log record. Only 


O 


LOGINO1 to LOGINxx 


DLZBACKO — Data Base Backout Utility 


Extended Description 


1. ‘LY control cards describe one input 
log file each. 7 


. Initialize PSTDBPCB, PSTDGU, and 
PSTDGN. 


. Atend of file, go to step 7. 


. The log record is placed in a work area 
(READAREA) whose address 
DLZRDBCO obtains via a V-con. 


. The input log file is closed. If another 
log file exists, it is opened and process- 
ing continues with step 2. The message 
texts are found in DLZBACM6O csect. 


. Process all other records for this PSB. 


. Write appropriate completion message. 


. Return to DL/I to purge buffers and close 


Routine 


accept records for specified PSB. 


. Terminate processing if termination ‘07’, 


scheduling ‘08’, or checkpoint ‘41’ record. 


. Bypass if ‘50’ record and physical replace. 


Log Record 


am 








DLZRDBCO 


== 


Process Log 
Record 


2-28.1 


If no error occurred, go to step 3. 






SYSLST SYSLOG 





Logout files and DMBs. 





Return to 


DL/I DLZBACKO 


Label Extended Description Routine Label 


CHKDPHYR 
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Figure 2-28.1. Process Log Record (DLZRDBCO) 


From Fig. 
INPUT 2-28 step 6 PROCESS OUTPUT 


1. Initialize dummy DSG and PST fields and Dummy DSG 


open DMB if not open. 
em) 
Open/Close 
PST 
PSTDSGA 
Buffer Pool 2. Read data base record containing segment 
data to be changed. | | PSTACBNM | 
| ES 
DB Buffer 
Handler 
2-15 
3. If simple HISAM, go to Figure 2-28.2 to 
back out log record. 
4. lf HISAM or INDEX, go to Figure 2-28.3 
to back out log record. 
| 5. If HD data base, go to Figure 2-28.4 to 
back out log record. 











6. Log data base change. 


DB Logger 
2-16 
7. Write data base record. a 






Logout 










a) DLZDBHOO Data Base 
DB Buffer 
Handler 
2-15 
To Fig. 2-28 
DLZBACKO — Data Base Backout Utility Step 6 DLZBACKO 


Extended Description Routine Label Extended Description Routine Label 
1. 


2. The following calls were made to the 
buffer handler: 


. If HISAM KSDS, issue PSTSTLEQ 
call. 


. If HISAM ESDS, issue PSTBYLCT 
call. . 


. If HD ESDS, issue PSTBKLCT 
call. 


6. Output log records contain the ‘opposite’ 
function to which was on the input log. 


7. The return code is checked and appro- 
priate action is taken depending on the 
call and return code. 
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Figure 2-28.2. Simple HISAM Backout (DLZRDBCO) 


INPUT | PROCESS OUTPUT 
rom Fig. | oo 
2-28.1 
Step 3 
Log Record — 


” 1. No action and key found and log 
record is physical delete or 

key not found and log record is 
physical replace or insert. 


aaa 


. If physical delete, get buffer Buffer Pool 
space and move old data, 


@amd DLZDBHOO 


DB Buffer 


Handler 
2-15 





and set buffer handler function 
to add new key (PSTPUTKY). 


3. If physical insert, set buffer 
handler function to erase key 
(PSTERASE). 


[-— 7-4 


Buffer Pool 


updated segment 


> 4. If physical replace, replace 
data in buffer with old data. 








To Fig. 2-28.1 
Step 4 


DLZBACKO — Simple HISAM Backout Utility DLZBACKO 


Extended Description Routine Label Extended Description | Routine Label | 


1. The address of the log record is input 
to this routine. 
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Figure 2-28.3. HISAM or INDEX Backout (DLZRDBCO) 











INPUT. PROCESS 
From Fig. 
2-28.1, 
BStep 4 
Log Record  —— = 1. If physical insert for KSDS, 
mark segment in buffer logically 
| deleted. 
‘is 
> 2. Bypass physical insert for 
ESDS. 
3. If physical replace, replace 
nog Decor data in buffer with old data. 
Log Record = —— — > 4. If logical delete, reset delete . 


code. | 


DLZBACKO — Data Base Backout Utility 


Extended Description . Routine. Label 





1. If segment is an INDEX data base 
(primary or secondary), the pointer 
to the index target segment is also 
zeroed. 


. Chain maintenance log records for 


KSDS effectively back out physical 
insert to ESDS. 
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Extended Description 


OUTPUT 


Buffer Pool 


changed 
delete byte 


Buffer Pool 


changed 
segment 


Buffer Pool 


changed 
delete byte 


To Fig 2-28.1 
Step 5 


DLZBACKO 


Routine 


- Label 





a 


Figure 2-28.4. HD Backout (DLZRDBCO) 


INPUT , PROCESS OUTPUT 
From Fig. 
2-28.1. 
Step 5 


1. if chain maintenance record, Buffer Pool 
move old chain pointer to updated 
buffer. Make new log code = segment 
physical replace. 


Input Log 
Record 


ae 


Output Log 
Record 


2. If physical delete, make new 


log code = physical insert. eae 
Obtain this space again and 
update PSEs. 
Geum [2208050 
HD Space : 
Management 
2-13 | 


3. For physical replace, replace 
data in buffer with old data. 












To Fig 2-28.1 
Step 6 





DLZBACKO — Data Base Backout Utility DLZBACKO 


Extended Description Routine Label Extended Description Routine - Label 
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Figure 2-29. HS DB Unload | oe 
INPUT semua Eom DOS/V§@ PROCESS sammtamsssmesemns ne OUTPUT 
| JCL 





. Read control card and validate contents. 


4. Load DBD and obtain physical character- 
istics of data base as it will be reloaded. 


DBD 


rod 


5, Generate VSAM contro! blocks and open 


SYSIPT 2. Initialize short segment and statistics 
tables. 
_ 3. Determine device type for each output 
file specified. 





data sets. 
6. Read records in key sequence, remove ; 
deleted segments, and write newly SYS011 
formatted KSDS and ESDS type records (SYS012) 
Data Base to output. 
7. Write statistics and close all files. 
SYSLST 
Return to 
DOS/VS JCL 
DLZURULO — HISAM Reorganization Unload Utility DLZURULO 
Extended Description Routine Label Extended Description | Routine Label 





1. Read and validate control statement. 
Write the following messages as needed: 


DLZ302I -Column 1 not R 
DLZ303I1 - Column 2 not 1 or 2 
DLZ304I - DBD name not specified 
DLZ307I - Input filename not specified 
DLZ308I - Output filename not specified 
DLZ309I - Error(s) found in control 

* statement 
DLZ3101 - Image of erroneous control 

* statement 


. DLZDVCE maé€ro obtains data from PUB. 
Device type may be TAPE or DASD. 


. Issue GENCB for ACB, RPL, and EXLST. 
Open KSDS and ESDS unless 
ACCESS=SHISAM (KSDS only). 


. Processing as follows: 


A. Read KSDS records in key sequence, 
bypass if deleted. ESDS records 
containing overflow dependent 
segments are read by RBA. 


. Format work area like KSDS record 
with new attributes. 


2-238 Licensed Material - Property of 


6. (con’t) 


C. Move as many segments as will fit into 
KSDS work area, bypassing deleted 
segments. Calculate overflow RBA. 
Write image of KSDS to output. 


. Format work area like ESDS record 
with new attributes. 


. Move any dependent seginents as will 
fit into ESDS work area, bypassing 
deleted segments. Calculate RBA for 
next record, if required. Write image 
of ESDS to output. 


7. Statistics also written to SYSO11 to be 
used for comparative purposes during 
reload. Processing will continue if addi- 
tional input cards. 





IBM 


a 


Figure 2-30. HS DB Reload 
INPUT From DOS/Vsg™ PROCESS OUTPUT 


1. Read control card and validate 
contents. 


SYSIPT 


2. Determine device type for input 
file. 


3. Initialize statistics table. 


4. Generate VSAM control blocks 
and open data set. 


Data Base 


SYSO11 5. Read records from input and 
write to data base. 


6. Print comparative statistics. 


SYSLST 





Return to 
DOS/VS 





DLZURRLO — HISAM Reorganization Reload Utility DLZURRLO 


Extended Description Routine Label Extended Description Routine Label 


. Read and validate control statement. 
Write the following messages as needed: 
DLZ302I - Column 1 not L 
DLZ3071 - Input filename not specified 
DLZ309I - Error(s) found in control 

statement 
DLZ310I - Image of erroneous control 
statement 

. DLZDVCE macro obtains data from 
PUB. Device may be TAPE or DASD. 

. The first record on the input file 
contains a statistics table initialized 
to zero. Included is the segment code 
and length for all segment types in the 
data base. 

. Issue GENCB for ACB, RPL, and 
EXLST. Open KSDS and ESDS unless 
ACCESS=SHISAM (KSDS only). 

. KSDS image records written to KSDS 
as key sequence records. ESDS image | 
records written to ESDS as address 
sequence records. 
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Figure 2-31. HD DB Unload (Part 1 of 5) 
INPUT . PROCESS =» OUTPUT 
From 


Figure 
2-3.4 






1. Obtain DL/I control block Sea anen Caller 


Registers 
asco) J] 


addressability via GSCD call. 


aaa A(PsT) 


A(SCDADDR) 


CALL Macro 


ASMTDLI 
Linkage to DL/I 


PCBADDR 





PSTADDR 


PST 
[) [rstess 


Ur, 
NO 


. Establish addressibility. PSBADDR 


PDIR 


PDIRADDR 





3. OPEN the printer and print 


the statistics report header. 

(uy OPEN Macro 

(am PUT Macro 

4. Determine device type for each INDA 
output data set specified. [| 
DLZDVCE FNAME=RESTART Macro 

DLZDVCE FNAME=HDUNLD1 Macro 


PCBADDR 


DLZDVCE FNAME=HDUNLD2 Macro 


Tit 


PCB 


5. Acquire storage for and 
initialize statistics table. 


STATSIZE 
ISDBPHYCD _| (a=) GETVIS Macro 
JCBSDBND | |SDBTFLG 


JCBORGN 


JCBINDC 


DLZUSTAT 


ieee 





DLZURGUO — HD Reorganization Unload CSECT DLZURGUO 


Extended Description 


1. Module identifier (DLZURGUOvrnp) is 
defined here. 


5. Indicate to DL/I Retrieve that HD 
UNLOAD is running by setting the 
indicator (JCBHDULD) at 

The GSCD call returns the SCD address JCBINDC. 

+X‘60’ and the PST address in the call 

parameter I/O area (SCDADDR). Macro DLZUSTAT contains the DSECT 
defining the format of a statistics table 

The PCB address is passed to this entry. 

module in R1 and stored at PCBADDR 

for later use. The table contains the segment code 


and length for all segment types in the 


data base. 


. If restarting, set the restart in process 
indicator on at INDA. 


If HDUNLD1 is IGN or UA, write 
DLZ3111 followed by DLZ347I, and 
then terminate. 


If HDUNLD2 is IGN or UA, write 
DLZ345I and continue processing. 
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Figure 2-31. HD DB Unload (Part 2 of 5) 
INPUT 


SDB 


SDBADDR DMBPRSZ 
DMBBDL 
DMBFLAG 


DDIR 


DDIRADDR DMBLST 
DMBPLEN 





DMB 
DMBLENTB | SEC 7 
DMBSECTB || DMBSCDE 
DMBSFLG 
DMBSFD 
iINDAD, <i Se ee —— +} 8 
C—O 
SYSLOG 
10. 


DLZCKPT 
RCHKPTID 
RCHKNUM 


LOGRESP RESTART 





DLZURGUO — HD Reorganization Unload CSECT 


Extended Description 


6. Macro DLZURGUF contains the DSECT 
- defining the format of an unload record. 


Ts 
8. 


9. Open the RESTART file and write 
message DLZ318A to SYSLOG 
requesting restart number and read 
response. 


. Macro DLZCKPT contains the DSECT 
defining the format of a checkpoint 
record. 


Write message DLZ315I if end-of-file 
is reached on the restart data set 
without finding the requested check- 
point record. 





PROCESS 


- 6. Acquire storage for a buffer 
to hold the unload record with 
the largest segment. 


. Ask operator for checkpoint 


Routine 


OUTPUT 


AVRGREC 


(==) 


GETVIS Macro 


. Open output data set(s). 


OPEN Macro 


he 


. If not restarting, go to 
step 13. 


LOGRESP 
restart number. 


OPEN Macro 
PUT SYSLOG Macro 


GET SYSLOG Macro 


TIT 


Copy records including 
checkpoint records to output 
until the checkpoint record to 
start from is found. 


GET Macro 






HDUNLD1 
HDUNLD2 


PUT Macro 


DLZURGUO 


Extended Description Routine 
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RECADDR 


A (record) 


DLZURGUF 


Label 
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Figure 2-31. HD DB Unload (Part 3 of 5) 
INPUT PROCESS 


DLZCKPT RECADDR 


rcxsecnm|[__] 


RCHKPOSC 


RCHKEYLN]| PCBADDR 
ackevvat|[___ 


= 


Data Base 












GUCALST 


PCB_ 
DBPCBSTC 













DLZURGUF RECADDR 


Data Base 


PCB 
DBPCBSTC 


GN calls. 





DLZURGUO — HD Reorganization Unload CSECT 


Extended Description Routine Label 





11. If the RBN is available in the check- RESTRT4 
point record, the SSA will be 


“‘seoname*T (rbn)” (HDAM or 
HIDAM). 


If the RBN is not available, a qualified 
key call is required. The GETVIS 
macro is used to get a work area to 
build the SSA for the call. The SSA 
will be “segname*C (key)’’. Following 
the call, the work area is freed. 


. Write the following messages as 
- needed: 


DLZ3011 Open failure 
DLZ348I Unexpected status 
from return code 
DLZ349I Input I/O error 
DLZ3781 Restart successful 
DLZ3791 Restart failed 
DLZ3801 Segment not found 
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11. Get ready to position the 
data base to the segment 
identified in the requested 
checkpoint record. 


13. Get ready for unqualified 


OUTPUT 





GUCALST 








Sy 12. Position the data base (GU call). 


ps 


CALL Macro 


ASMTDLI 
Linkage to DL/I 


RGUHDRLN 


14. Issue GN for segments and 
check return code. Go to 
step 21 if end of input data. 


CALL Macro 
ASMTDLI 


Linkage to DL/I 


15. Fill in the remaining fields 
of the unload record. 


DLZURGUF 


DLZURGUO 


Extended Description Routine 


IBM 


13. IOSEG is the beginning of the variable 
length data field following the DL/I 
prefix information of the unload 
record. 


14. Write the following messages as 
needed: 


DLZ3011 — Open error 
DLZ348I — Unexpected return 
code 

DLZ349I — J/Oerror 


. Write message DLZ400I for a sequence 
error. 








Figure 2-31. HD DB Unload (Part 4 of 5) 
INPUT PROCESS . OUTPUT 


DLZURGUF | DLZUSTAT 
16. Update statistics table. 


DLZURGUF 
17. Write the unload record. 


|_| 
7 eo] PUT Macro 
eg 
> 





HDUNLD1 
HDUNLD6 


DLZCKPT 


18. Build a checkpoint record 
if required. Otherwise, 
return to step 13. 


DLZURGUF PCB 


DBPCBMKL 
DBPCBKFD 








19. Write a checkpoint record. 


==) PUT Macro 


20. Return to step 13. 


DLZCKPT RECADDR 


nes nee 


HDUNLD1 
HDUNLD6 


S 
21. Update the statistics for the DLZUSTAT 


last root segment. 


22. Write the last block of 
unload records. 


(= PUT Macro 


HDUNLD1 
HDUNLD2 


DLZURGUO — HD Reorganization Unioad CSECT DLZURGUO 


Extended Description Routine Extended Description Routine 


. The records are moved to the output 
block. When the biock of records is 
full, the block is written. 


. Checkpoint records are written at the 
first root segment after every 5000 
segments. 


. Write message DLZ381I every time 


a checkpoint is taken. 
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Label 
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Figure 2-31. HD DB Unload (Part 5 of 5) ges By 
INPUT so ' PROCESS raeci NEE ws OUTPUT mu 


TABBLE 
23. Write statistics table record. 






HDUNLD1 
- HDUNLD2 


- 24, Close output files. 


CLOSE Macro 


(mm) CLOSE Macro 


—— 
25. Edit and print statistics 


| ——- report and volume information. 
TABBUF RECADDR 







26. Free table buffer and segment 


STATSIZE AVRGREC buffer. 


[jf 





FREEVIS Macro 


FREEVIS Macro 


I] 


27. Close the printer. 


CLOSE Macro 


J 


esis ; 28. Return to DL/I. 
Registers . 
To 
Figure 
2-3.4 
DLZURGUO — HD Reorganization Unload CSECT DLZURGUO 
“Extended Description — Routine ~~ Label © Extended Description — ~ Routine ~ Label 








23% 
24. 


25. Write message DIZ352) (no errors 
detected). 


26. Write message DLZ392I for 
FREEVIS error. 


are 
» 28. 


a 
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Figure 2-32. HD DB Reload (Part 1 of 6) 
INPUT 


From 
Figure 


2-3.4 


: 
ee ee 


GSCDPARM_ ——_Ri 
A(GSCD) 


A(SCDADDR) 





HDUNLD2 








SCDADDR 


SCD 


ees 


SYSLOG 


-'DLZURGLO — HD DB Reload 


Extended Description 


1. Module identifier (DLZURGLOvrnp) is |DLZURGLO|DLZURGLO 


defined here. 


~ The PCB address is passed to this 
module in Rl by DLZRRCOO and 
stored at PCBADDR for later use. 


The GSCD call returns to the SCD 
address + X‘60’ and the PST address 
in the call parameter I/O area 
(SCDADDR). 


. Write DLZ3111 if HDUNLD1 is not 
assigned. 


. Issue DLZ3891 if abnormal 
Statistic table record. 


. If the HD DB Reload Utility Program 
fails, the reload restart capability 
allows you to restart from a check- 
point record. Before submitting the 
job for a reload restart, change the 
parameter card from ULU to ULR. 





PROCESS 


. Obtain DL/! control block 


. Read first record and check for 


. Get checkpoint restart number 


Routine Label 


OUTPUT 


caller 


PCBADDR a 


SCDADDR 
addressability via GSCD call and A(SCD) 
initialize. 





. Open the printer. 


[ 


OPEN Macro 


. Determine device type for input 


file and open it. 


DLZDVCE Macro 


OPEN Macro 


[] 


\/O Buffer 


Stat record 


a statistics table. 


GET Macro 


J 


. If not restarting, go to step : | INDA 


20. > 


RSTSAVE 


registers 


from operator. 
PUT Macro LOGRESP 


GET Macro 





I] 


DLZURGLO 


Extended Description Routine | 








6. Write DLZ318A message to SYSLOG 
requesting restart number and read 
response. 


BEGIN © 


The number of the last valid check- 
point record on the unloaded file 

is found in console message DLZ38 11. 
Valid checkpoint numbers are decimal 
values between | and 9999. 


PUBCHKA 


STATINIT 
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Figure 2-32. HD DB Reload (Part 2 of 6) 


INPUT 


2. 


LOGRESP 


DLZURGUF : 
RGUSEGLV 














DLZCKP 
RCHKNAME 
RCHKNUM 





DLZCKPT PCBADDR 


RCKSEGNM 














PCB 


DBPCBSTC 


GNLIST 





DATA BASE 


RCHKEYLN 
RCKEYVAL 

GUCALST 

A (GU) 


A (WRK1AREA) 


DATA BASE 





PCB 


DBPCBSTC mired a 


DLZURGLO — HD DB Reload 


Extended Description 





7. Write DLZ370I if the checkpoint 
requested is Jess than the first check- 
point record enconntered. 


Write DLZ3151 if checkpoint record 
not found. | 


Write DLZ381I checkpoint informa- 
tion message 


. The SSA for the GU call is ‘segname*C 
(key)’, a qualified key call. 


. The return code is checked. 


Write DLZ380I unable to position 
DB, checkpoint record not found. 


in the requested checkpoint 


10. Find end of data (GN call). RQ 


GHD CALL Macro 


Label 


OUTPUT 


7. Locate requested checkpoint 


joa GET Macro 


8. Get ready to position the data 
base to the segment identified GUCALST 
A (PCB) 










9. Position data base (GU cail). 


eo) CALL Macro 
ASMTDLI 


Linkage to DL/I 


ASMTDLI 
Linkage to DL/I| 


11. If the return code indicates 
end of data, go to step 16. 


DLZURGLO 


Extended Description Routine Label 









10. Now that the data base is positioned 
_ at the segment identified by the check- 
point record, issue GN calls to the end 
of the data base at the same time 
reading corresponding records from 
the unloaded data base in order to 
keep the two synchronized. 


A counter for GN calls (R9) is 
incremented by one for every GN 
call following a root segment. 


Write DLZ380I unable to position 


DB if invalid return code. 
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Figure 2-32. HD DB Reload (Part 3 of 6) 
INPUT PROCESS OUTPUT 


PCB GUCALST 

——-—-E» 12. If the segment returned is not 
a root segment, skip to step 14. 
SSA 





PCB 
13. Put the new root segment key in GUCALST RQ 
| DBPCBKFD | 
the parameter list of the GU 
call and return to step 10. 


SSA 





14. Read corresponding record from 


unloaded data base. 
HDUNLD1 
e==) GET Macro 
DLZURGUF DLZCKPT 
RGUSEGLVJ LRCHKNAME 15. Return to step 10 to get the 


vy, 


next segment. 


16. Position data base to last root 
segment (GU call). 


ALST 
A (GU) 
A (WRK1AREA) 


A (SSA) DATA BASE 
CALL Macro 


ASMTDLI 


Linkage to DL/I 





DLZURGLO — HD DB Reload DLZURGLO 


Extended Description Routine Label Extended Description a Routine Label 





12. 


13. Reset the counter for GN calls (R9) 
to zero. 


14. 


15. If the record returned from the 
unloaded data base is a checkpoint 
record, return to step 14 to get the 
next record in order to keep the 
partially reloaded data base and 
the input unloaded data base 
synchronized. 


Issue DLZ3811 checkpoint informa- 
tion message. 
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Figure 2-32. HD DB Reload (Part 4 of 6) a 
INPUT PROCESS OUTPUT 












GNLIST 


A (WRK1AREA) 








17. Position data base to the last 


EGSAVE 
segment (GN calls). S 











CALL Macro 


ASMTDLI 
Linkage to DL/|! 


DATA BASE 






DLZURGUF 


RGUSEGLV 


RQ 


18. If a work file is present, 


SCDADDR ae 
A (SCD) copy partially created work 
file into new. 
WORKFIL 

SCD OPEN RSTFILE Macro 
SCDDSEHO 

DLZDSEHO 

Work file 
DSEHADDS BALR generator 
AOPENWRK 


{I 


GET Macro 


AWRKDSEH | RSTFILE 
AWORKFIL 





PUT Macro 


CLOSE Macro 


IIT 


PSTADDR RSTSAVE 


19. Reset processing options. PCB 


DBPCBPRO 


PCBADDR 


PST 
A (PCB) PSTPCT1 


PCB SDB 
JCB 
|[Lscasoe1__ | 


JCB 


JCBSTOR3 


SDB 





-DLZURGLO — HD DB Reload DLZURGLO 


Extended Description Routine Label Extended Description 





Routine Label 











17. Save the segment code of the last 
segment. The number of GN calls 
to make to get to the last segment 
is in R9. 


Save the address of the SDB for 
insert processing if it is for the last 
segment found in JCBSTOR3. 


. If a work file (for logical relationships 
or secondary indices) was being 
created during the reload, the 
partially created work file should be 
submitted as input to the restarted 
job assigned as SYSO10 with a file 
name of RSTFILE. 


Write DLZ376I invalid device 
assignment. 


. Now that Reload Restart processing 
is complete, set the processing 
options to indicate that a load is in 
process. Then resume processing as 
usual. 


If HISAM, set LS in the PCB. 
Otherwise, set L. 
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as 


Figure 2-32. HD DB Reload (Part 5 of 6) 


OUTPUT 


DLZURGUF 


INPUT PROCESS 
20. Read an unload record. If 
end of file, go to step 21. 
HDUNLD1 
(= GET Macro 
DLZURGUF 





RGUSEGLV 
RGUSEGNM 
IOAREA | 






CALLIST 







DLZURGUF 


RGUSEGLV 
RGUHSDF 


DLZUSTAT 


DLZCKPT 





a 


Wo T= eee - 


DLZURGLO — HD DB Reload 


Extended Description 








20. 

21. IOAREA is the address of the data 
portion of the unload record 
DLZURGUF. 

22. Write DLZ301I OPEN error. 

Write DLZ3191 IO error. 
Write DLZ348I invalid return code. 

238 

24. 

25. Write DLZ355I if reload is not okay, 
or DLZ3791 if checkpoint restart 


is not okay. 


Write DLZ354I if reload is okay, or 
DLZ378I if checkpoint restart is okay. 


If this was RESTART (ULR), reset 
the processing option in the PCB 
back to A. 


21. Build SSA for segment. 


Routine 


Cd 


CALLIST 
A (ASRT) 


A (PCB) 
A _(tOAREA) 
A (SSA) 





22. Load segment (ASRT CALL). 


(=m) 


rh 


CALL Macro 
ASMTDL1 
Linkage to DL/I 


23. Add the segment totals and 
return to step 20. 


DATA BASE 


24. Print comparative statistics 
report if the record is the 
last statistics record. 


hd 


SYSLST 
25. Close the input file. PCB 
DBPCBPRO 
CLOSE Macro 
DLZURGLO 


Label Extended Descri : tion Routine Label 











STATCOMP 
LASTCOMP 


EOD 
GOODRUN 
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Figure 2-32. HD DB Reload (Part 6 of 6) 
INPUT PROCESS OUTPUT 


26. Close the printer. 


aap CLOSE Macro 


Catfer 
registers 27. Return to DL/I. 
Figure 
2-3.4 
DLZURGLO — HD DB Reload DLZURGLO 
Extended Description Routine Label Extended Description Routine Label 


STOPRUN 


NODUMP 
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Figure 2-33. ACB Creation Utility Overview (Part 1 of 3) 
INPUT PROCESS 


From 
DOS/VS 


ScD PPST 


SCDPPSTS PPSTIND 





Til 


2. Acquire and initialize the 
psbname list control block. 


J 


= 


TY _____ » 1. Load batch nucleus and establish 
SCD and PST addressability. 


DLZUSCHO 





3. Read build cards until EOF. 


OUTPUT 


Partition 
DLZUACBOvrnp 


LOAD Macro 


GETIME and 
COMRG Macros 


OPEN Macro 


CALL Macro List 


entry length 


offset to 
compare field 


length of . 
compare field 





OPENSRCH entry 
point 





2-33.1 





(mm GET Macro 
Build Cards 
4. Syntax check the build cards. > ost 
BLDLCBAD —<———— 5, Add valid psbnames to the list 


control block. 


A (list ctrl block) 


BALR 


DLZUACBO — Create ACB Utility Csect 


Extended Description 





1. Module identifier (DLZUACBOvrnp) is IDLZUACBO |DLZUACBO 
defined here. The level format is vrnp; 
where ‘v’ is the version, ‘r’ is the 
release, ‘n’ is an additional identifica- 
tion number, and ‘p’ is the latest 
PTF number that has been applied. 


The time and date are required for the 
report heading to DLZUACBO 
messages and control statements that 
are printed as this utility executes. 


. The parameter list for OPENSRCH 


is passed in RI. 


OPENSRCH returns the address of the 
list control block in R1, which is then 
put in the parameter list for INSRCH. 


Write DLZ905I if GETVIS error 
returned from OPENSRCH. 


| DLZUSCHO LZUSCHO 









INSRCH entry 
point 2-33.1 
step 4 


R1 
List 


A (psbname) 


DLZUACBO » 











Routine : Label 





4. Write DLZ588I for an invalid 
delimeter, label, opcode, block 
type, operand, continuation, or 
invalid format. The output device 
is set at this time (SYSLINK or 
SYSPCH). 


If OUT=LINK was specified in the 
build card, SYSLNK is indicated in 
the PST. 


. The psbnames from the PSB= 
operand are passed one at a time 
to INSRCH. . 


The parameter list for INSRCH is 
passed in R1. 


Write DLZ905I if GETVIS error 
returned from INSRCH or DLZ5711 
waming message if a duplicate 
psbname is found. 
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Figure 2-33. ACB Creation Utility Overview (Part 2 of 3) , aa ee ee _—. 
INPUT oo : | PROCESS a . y= OUTPUT 


s¢ 0 — LE —— > 6. Check that SYSPCH or SYSLNK is 
ae assigned and open the device. 


7. Set up to cycle the psbname —- : z 3 psT 


A (List ctrl blk) build list entries, getting 
| at Ae aa _ | PSTPSB 
1 psbnames to give to the Block 
| Builder. 

PST SCD : Os wigx s. 
PSTSCDAD | |SCDDLIPS |] | | 3 
SCHCTLBK | a ae 
SCHFGRP ng. oat 


> BLDLCBAD 





SCHGROUP BLDDLTEN 8. Move a psbname from a build list PDIR R1 


SCHGRPCT entry to the PDIR and go to PST 


: build and write blocks. 
nats 


DLZDLBLO 


Block Builder 
Routine 
2-33.2 


BALR 







9. Write completion message. 


DLZLBLMO |. 


BLDDLTEN 


ENTRYNM (= 









BALR Message Writer 
- 2-33.15 
Seccn aE aE | uild list entry until there: 


are no more psbnames. 


-DLZUACBO — Create ACB Utility Csect _ DLZUACBO 


Extended Description see Routine Extended Description — Routine ———s Label 








. PSTERCOD is examined to see if any 
errors were posted by the Block 
Builder. If not zero, issue message 
DLZ587I to indicate the PSB will not 
be built and go to step 10 to attempt 
to build remaining blocks. 


. The completion message is normal . 
unless a non-zero return code | 
is found from DLZDLBLO. 


Write DLZ589I to indicate processing 
has been completed for the PSB 
specified. 
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Figure 2-33. ACB Creation Utility Overview (Part 3 of 3) 


INPUT 


PST SCHGROUP 


PSTPSB SCHNGRP 


PST 


PSTCODE1 


PROCESS 


—-—-p 10. Return to step 8 for each build 
list entry until there are no 
more psbnames. 


11. Free the psbname list control 
block. | 


DLZUSCHO 
CLOSESCH entry 


point . 
2-33.1 
step 8 







————#> 12. Close files and exit. 


deme) CLOSE Macro 


" DLZUACBO — Create ACB Utility Csect 


_ Extended Description 








Routine Label 





NXTPSB 
BLDDONE 
CLOSE 
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ee OUTPUT 


Ri 


A (List control bik) 


Return to 
DOV/VS 


- DLZUACBO 
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Figure 2-33.1. Binary Search Insert Routine (Part 1 of 2) 
INPUT : PROCESS 






From 
Fig. 2-33 
Step 2 


OPENSRCH Entry Point 


——— > 1. Acquire storage for the list 
| control block, including one — 


group control block. 


jum GETVIS Macro 


SAVE 


SAVEBL 





R1 List 
offset to . Initialize the list and group 
compare field control blocks. 


ength o 
compare field 





SAVE Registers 3. Return to caller. 


R1 
A (SAVE 
A (psbname) 










Step 2 


From 
Figure 2-33 
Step 5 


INSRCH Entry Point 


P > 4. if the psbname already has a 
build list, set R15=8, then 


go to step 7. 


ENTBLK 
| 





DLZUSCHO — ACB Maintenance Binary Search Insert Routine 


Extended Description Routine Label Extended Description 








1. Module identifier is defined here. DLZUSCHO |DLZUSCHO 
Length acquired is X°80’ bytes. One 
group control block will hold 16 build 


list entries. 


. Block now contains information 
needed to build a group control 
block. The first (or only) block is 
obtained before the first actual insert. 


. The address of the created block is 
returned to the caller. 


Note: This routine is very generalized 
and could be used for other purposes, 
but it is only used by DLZUACBO to 
build the psbname build list control 
block. 


. Routine identifier (INSRCH. .) is 
defined here. 
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9 
ENTBLK . 
ENTBLKBL 
Caller , 





OUTPUT 


Ri 


Caller 
Registers 


Reaenpena 


SAVE 


[HSA 













R15 


SAVE 





Caller 
Registers 


eal] 





DLZUSCHO 


Routine _ Label 





Ma 


Figure 2-33.1. Binary Search Insert Routine (Part 2 of 2) 


INPUT PROCESS 
ENTBLK SAVE —-—-— 5. If no room for new build list 
entry, issue GETVIS for a new 


group control block, chaining it 
to any previous blocks. 


eum GETVIS Macro 


cen enue [> 6. Insert new entry in collating 
[ENTLNGTH | ie a 

BKCHAIN ENTLNGTH 

ENTBLKBL 
CHBACK 


ENTLOC 


new entry 


SAVE Calter 7. Return to caller with return 





code in R15. 


HSA —_ 


Figure 2-33 
Step 11 


CLOSESCH Entry Point 


8. Free all group control blocks 


R1 — 
and then the list control block. 


A (list ctrl bik) 





Caller 9. Return to caller. 


oe 


Routine Label 





Extended Description 





5. There is enough room for 16 entries 
in a group control block. 


. Routine identifier (CLOSESCH) is CLOSESCH |CLOSESCH 
defined here. All group control blocks 
can be found beginning from the list 
control block. | 


FREEVIS Macro 


G=m FREEVIS Macro 


Extended Descri 








tion 








° 


OUTPUT 


INTBLK 
ENCNT 


CHAIN | 


BKCHAIN 
SAVE 
CHBACK 





ENTBLK 


Group 
ENCNT ntrol Bik 


SAVE 
NUMENT 





R1 R15 


Caller 
Registers 


ae 


Figure 2-33 
Step 11 


Routine . Label 
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Figure 2-33.2. Block Builder Routine 1 


INPUT PROCESS OUTPUT 









From Figure 
2-33 Step 8 


PSB 


{_}} __[ J 
co 


1. Acquire storage for PSB specified, > PSB 


load, and convert it. [i 
LOADPSB 


ae DDIR Temp 
Ps Easel 


—_---- > 2. Build temporary DDIR entries for all STeROKe 
| | data bases directly identified in the PSB. 


BLDDDIR 


-—— > 3. Calculate and acquire storage needed 


for SDBs, etc. 
- 


[ J— ei i > 4. Point to first PCB to be built. 









PSB 


aaa) 


FLSTAB 


PCB 5. Initialize PCB. 


BLDPCB 


PCB 


PSB 
— SS — —-— p 6. Build SDBs for PCB. 


BLDSDB 


7. Loop to step 5 through all PCBs for PSB. 


SDB 





-DLZDLBLO — Block Builder Routine 1 DLZDLBLO 


Extended Description Routine Label Extended Description | _ Routine Label 





PSBPASS 


PSBPASS1 
BLDPCB 


6. Only those SDBs for segments directly PSBPASS3 
referenced by SENFLDs are built at this 
time. Generated SDBs will be built in 


DLZDLBL1. 
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MEE 


Figure 2-33.3. Block Builder Routine 2 | 
INPUT PROCESS OUTPUT 


From Figure 
2-33.2 


DUMDDIRB 








. Get first temporary DDIR address. 


DDIR 
—_—— —— = . If DMB already built for DDIR entry, go 
to step 5. 
. Load the DBD. 
EXTDBD 


DBD 


= a —— 


. Build the DMB. 


I 


PREFIX SEGTAB 










FLDTAB LCHILD 


0 


MB 








BLODMB 


| | 2-33.4 


5, If any unprocessed SDBs exist for this 
DDIR entry, process them. 







SORTAB INDEXTAB 


lil 


COMPRESSION CSECT 


” 
m 
oO 


E 


BLDSDB | COMPRESSION CSECT 


2-33.5 


n 


SEGTAB DB 


; 


6. If any DDIRs remain to be processed, get 
SORTAB PSDB | next and go to step 2. 


ae) ais 
aaa 


EXTDBD SEC 


a= 


> 


CB 





i 


Oo 


TF 


; 





To Figure SDB 

“ fe care 
DLZDLBL1 — Block Builder Routine 2 DLZDLBL1 
Extended Description Routine Label Extended Description Routine Label 


. The DBD address is reset from the DMB DMBPASS] 
Name Table. . 


. Any DBDs referenced by this DBD are DMBPASS2 
added to the dummy DDIR list. 


. A. If the DBD is for an index data base, DMBPASS3 
the DDIR entry for the target data 
base is located and processed first. 


B. No DMB is built for logical DBDs. 


. SDBs pointing to VLC or logical 
segments are reset to point to the 
physical segment PSDB. 


B. All generated SDBs are built here. 


. If additional SDBs were chained to a 
prior DDIR during step 5, return to that 
DDIR, and go to step 2. 
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Figure 2-33.4. Block Builder BLDDMB Routize 


INPUT PROCESS OUTPUT 


From Caller 





PREFIX SEGTAB 


DMB 


C2 1. Get and initialize storage for DMB. [i 


| GDMBSTR 


2. Build PSDBs, FDBs, Secondary Lists, and 
Compression CSECTs for each segment. 


FLDTAB EXTDBD 





aneat| eee 


PSDB 


fo 


COMPRESSION CSECT 


3. Process enqueued Secondary Lists; build 
segment concatenated key table; and 
initialize subsequence source, or search 
secondary lists. 


BLDTBL 


4. Move in DTF(s) or ACB. 


MACBDTF 


Routine Label Extended Description 










DTF ACB 
DMB 


aees 





Return to 
Caller 






DLZDOLBL1 — Block Builder Routine 2 DLZDLBL1 


Extended Description 


Routine Label 
we BLDDMB 
2. Until the concatenated key table is built, BLDDMB1 
all secondary lists are enqueued on the 
DDIR and will be built during step 3. 


BLDDMB4 
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Figure 2-33.5. Block Builder BLDSDB Routine (Part 1 of 2) 
INPUT From Caller PROCESS OUTPUT 


R6 1. If no more SDBs, return to caller. 


2. Find matching physical segment table 


entry. 
. SDB 
3. If segment has source, repoint SDB to 
SORTAB DDIR new PSDB. Go to step 1. [ 
[Jt] 4. \f segment is a logical child, build 
generated SDB chain. | : 
5. If SDB is a generated SDB for a logical 
parent or the target of an alternate 
sequence index, and no generated parent 
chain exists, build one. 
| | 
6. Set ACB number, physical segment SDB 
PSDB code, key field length, PSDB address, 


er and next SDB to PSDB address. 


UL 


DLZDLBL1 — Block Builder Routine 2 DLZDLBL1 


Extended Description Routine Label Extended Description Routine Label 





. Output message DLZ9121 if not 
found. 


. If source is in another DBD, the SDB 
to be processed is the next one for 
this DBD. Otherwise, process the 
original with the new segment name. 


. If segment is a normal logical child, 
the logical parent SDB is generated 
and flagged to cause generation of 
the parent chain when the LP is 


processed. All generated SDBs are 
chained to the DDIRs for the related 
data bases. 
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Figure 2-33.5. Block Builder BLDSDB Routine (Part 2 of 2) ant “2c eee 4A . 
INPUT.,= PROCESS OUTPUT 


7. If SDB is not the root for an alternate 
sequence, go to step 11. : : 


8. Generate SDB for index. 


a | = a 
9. Generate SDB for target of index and SDB 
flag to indicate parent chain i is to be , 
generated. | feet 


R6 
(em [ cai a 


10. Go to step 1 and oe SDB generated 
in step 9. | | 


SDB 


11. If SDB is not for HIDAM root, go to 
step 13. 





12. Generate SDB for primary index. _) SDB 


al | 13. Point to next SDB for DDIR, and go 7 R6 
[> —}----4--- om {-----b PF 


DLZDLBL1 — Block Builder Routine 2 | | DLZDLBL1 


Extended Description Routine Label Extended Description : Routine . Label 


BLDSDBF 
BLDSDBG 
BLDSDBI 
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Figure 2-33.6. Block Builder Routine 3 (Part 1 of 2) 
















OUTPUT: 





INPUT PROCESS 
From Figure 
2-33.3 
DDIR ; ‘ Intent List 
ee ee ay fod 1. Calculate size of Intent List and 
r obtain space. — 
PCB 2. Process PCB. ? 
= 3. Process SDBs for PCB. 

SDB FSB 

[Job (mn) 

SEC i > 4. Check for valid hierarchical structure. 

—-4 | -_ 

[ —_]----+- : 

FERT 
FERT > 0. Relocate pointers in FERT tables. {| 
| ——_"> 6. Get space and move PCB. PCB DCB 
ae ae 

DLZDLBL2 — Block Builder Routine 3 DLZDLBL2 
Extended Description Routine Label | Extended Description Routine Label 


. The SDB expansion and FSBs for any 
field level sensitivity are built here. The 
parentage flags in the SDB are set, the 
Intent List entry is built, and any 
propagation is done. The index SDB, if 
any, is initialized. 


. Space is allocated for the PCB, JCB, key 
feedback area, DSG, and Level Table. 


BLDPCBS5 
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Figure 2-33.6. Block Builder Routine 3 (Part 2 of 2) - | 2 | 
INPUT seco ) | PROCESS = SEE ua OUTPUT: 


7. Build Level Tables. — eS ey 
|__] 
a 
| aa 8. Build DSGs and set key feedback pointers. DSG JCB 


BLDODSG 


9. Calculate maximum path length for PCB. 


CMAXPL 


10. if more PCBs, address next and go to 
step 2. 










Go to Figure 
2-33.8 


DLZDLBL2 — Block Builder Routine 3 | DLZDLBL2 


Extended Description | os Routine Label Extended Description 7 Routine Label 
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Figure 2-33.7. Block Builder BLDSDB Routine 
INPUT 





From Caller 


1. 








4. 
5. 
HE comer) % 
DLZDLBL2 — Block Builder Routine 3 
Extended Description Routine 


. Maximums set are: 

. Maximum segment length in 
either physical or user’s view. 

. Maximum concatenated key 
length. 

. Maximum concatenated segment 
length. 

. Longest segment at this level and 
path sensitive. 


. Output message DLZ9091 if 
PROCOPT changed. 

. All intent propagation is done 
here. 


. Fill in the generated index SDB for 
HIDAM primary indexes or alternate 
sequence. 


PROCESS 





OUTPUT 


If segment is field sensitive, build SDB SDBXP 


expansion and FSBs. 
BLDFSB 


= 


Set SDB parentage flags. 


Calculate maximums for save area 


sizes. 
— 
Build intent list entry. 


INTPROP 
2-33.10 


TL 


Nn 


DB 


’ 


Intent List 


[| 








Fill in any generated index SDB. SDB DDIR 
(am 
if any target SDBs, get first and go to 
step 1. 
Return to 
Caller 
DLZDLBL2 
Label Extended Description Routine Label 


BLDSDB2 
BLDSDB3 


INTENTL 


BLDSDB4 
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Figure 2-33.8. Block Builder Routine 4 (Part 1 of 2) 


INPUT From Figure PROCESS 
2-33.6 
PSB PCB [FS 1. Build index maintenance PCB if required. 


as | eee 


JCB 


2. Calculate sizes of work areas. 


3. Set SDB Expansion for alternate 
sequence. 


SSDBXPF 


4. Validate VLC LT sequence field 
location. 


| CVSFNPP 


5. Process and output DMBs. 


DDIR2SC2 











6. Process and output PSB. 


——* 
7. Free PSB storage. 


FREERT 





DLZDLBL3 — Block Builder Routine 4 


Extended Description Routine Label Extended Description 
iy BLDEND 
2. Index work area, Index I/O area, CALWAS 
segment compression work area, and 
I/O work area 
DDIR2SC2 
PSBMOV 


FREEPSB 
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= OUTPUT 





PSB 


a io 


SDBXP 


DLZDLBL3 


Routine 


Label 





a 
stay 


Figure 2-33.8. Block Builder Routine 4 (Part 2 of 2) 








INPUT PROCESS OUTPUT 
DTADMB 
| + —-———-I-——-~)] 8. search DMBNAME table for DMB that 
needs a utility PSB. Go to Step 11 if 
none. 
9. Build utility PSB. 
DLZDPSBO 
2-33.14 
10. Go to PSBPASS in module DLZDLBLO 
(Step 1., Figure 2-33.2) to process utility 
PSB just built. 
11. Free DBD storage. 
12. Return. emp To Figure 
2-33 Step 9 
DLZDLBL3 — Block Builder Routine 4 DLZDLBL3 
Extended Description Routine Label Extended Description Routine Label 
8. Utility PSB is built for every HISAM, UTILPSB 
HIDAM, HDAM, and secondary 
index DMB just outputted. 
. The dmbname is moved to the 
psbname location and a suffix ‘uw’ 
added. The no utility PSB required 
indicator is turned on at DTABFLAG 
so we don’t try to build another 
utility PSB for this DBD the next 
time around. Return to Step 9 to 
build the PSB. The output of 
DLZDPSBO is like PSBGEN output. 
FREEDBD 
. PSTERLOD = 0 if OK and non-zero RETURN 
if not. 
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Figure 2-33.9. Acquire Storage Routine 7 
INPUT PROCESS OUTPUT 


From Caller 
R1 


= st > 1. Acquire storage. St 


orage 
ass GETVIS Macro [ 


R1 ADDRC ADDRDBD 
2. Chain storage acquired. 





3. Return to caller. 


| To Caller 


DLZDLBLO — Batch Control Block Builder CSECT DLZUACBO 


_ Extended Description Routine Label 





Extended Description 


Label 


Routine 








1. Write message DLZ9OSI if GETVIS 
space is not available. 


2. If this is a storage request for a DBD, GETSTOR1 
the storage is chained off at 
ADDRDBD rather than ADDRC. 
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| Figure 2-33.10. Intent Propagation Routine (Part 1 of 2) 7 
INPUT PROCESS ) OUTPUT 


From. 
Figure 
2-33.7 
Step 4 
SDB 
SDBF3 Caller 
= SVBF3 Registers 





ummm uit psi 
BALR 


Routine 
2-33.11 









1. Set read onl lusi 
TOP "nt sa ; J (—__} 


PSDB SEC 


. Set update intent for entry SDB 
ea TpMBSEGND: and its target if either is 
DMBLST DMBSECND replace sensitive. 


SETNT 


Build PSIL 
Routine 
2-33.11 


K 










SVBF3 


[ a aoe 3. Check for necessary intent 
| 
L 


propagation. Skip to Step 7 
if entry SDB is not ISRT/DLET 
sensitive. 


> 4. 1f ISRT sensitive, skip to 
Step 6. 


DLZDLBAO — Intent Propagation CSECT DLZUACBO 


Extended Description 





Routine Label Extended Description Routine Label 





: 1. This routine propagates intent to all 
PSDBs related or dependent on the 
PSDB for the entry SDB. Only SDBs 
that are built directly from SENSEG 
statements in the associated PSB are 
passed to this routine. 


For a process option (PROCOPT) of 
G, the entry SDB and all targets are 
set to exclusive. For E PROCOPT, 

the entry SDB and its immediate 
target are checked for key sensitivity. 
If the SDB is data sensitive, the intent 
is set to exclusive. Otherwise, no 


intent is set. 
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Figure 2-33.10. Intent Propagation Routine (Part 2 of 2) 
INPUT PROCESS OUTPUT 


P 5. Process the entry PSDB and all LIMITAB 
necessary related and dependent 
PSDBs for D PROCOPT. 


SETNT 


Build PSIL 
Routine 
2-33.11 


ess | ere 





LIMITAB 






> 6. Process the entry PSDB and all 
necessary related and dependent 
PSDBs for | PROCOPT. 


SETNT 


Build PSIL 
Routine 
2-33.11 





(ean 


BALR 







Caller 
Registers 


ey 7. Return to caller. > R15 
en) FREEVIS Macro 





DLZDLBAO — Intent Propagation CSECT | DLZUACBO 


Extended Description | | Routine Label Extended Description | Routine Label 





5. Any intent set will be update type. 
Storage is acquired for a limit table 
and is constructed with PSDB 
addresses. These addresses show 
children of the entry PSDB, any 
necessary higher related PSDBs, any 
index relationships, any logical 
children, the logical parent, physical 
parent, and physical pair of the entry 
PSDB. After the table is constructed, 
each entry is passed to SETNT to set 
update intent and the table area is 
freed. Exclusive intent is propagated 
along with delete. 


After processing the LIMITAB 
entries built, the area is freed. 


7. Set the return code and make sure INTRETO 
all the limit tables are freed. 


. Any intent set will be update type. 
A limit table is constructed with 
addresses of those PSDBs that will 
be passed to SETNT. 


It is also determined if the entry SDB 
can insert its logical parent or physical 
parent as a result of a concatenated 
segment definition. If it can, the 
logical parent or physical parent is 
processed in the same manner as the 
entry PSDB. The physical pair is also 
processed if one exists. 
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Figure 2-33.11. Build PSIL Routine 


INPUT PROCESS OUTPUT 








From 
| Figure 
2-33.10 


DDIR PSDB 


DDIRRESV DMBSC 


Caller 
Registers 


R1 

— — 1. Calculate the address of the | Eee 
ENQLSTA beginning of the segment —— 
descriptor bits in the intent 
list area for this PSDB. 





R7 





SDB 
—— > 2. Set the requested sensitivity 
R1 RT for this PSDB. 


et | eee 





3. Return to caller. 


To 
Figure 
2-33.10 
DLZDLBAO — Build PSIL CSECT DLZUACBO 
Extended Description Extended Description Routine Labe! 
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| Figure 2-33.12. Write DMBs (Part 1 of 2) 
INPUT 







From 
Figure 
2-33.8 
Step 5 


DDIR 


DMB 
DDIRADDR DMBSIZE 
DMBNREF 








DDIR DMB 
DDIRADDAT DMBLENTB 
DMBSECTB 
PSDB 
DMBVLDFG 
COMPRES- 
SION 
SEC CSECTs 





DMBSCDE 
DMBXITAD 






XMT 
CSECTs 
SEC DDIR 


DMBSCDE DDIRDMBN 
DMBSECDB 





PSDB 


DMBPSDBN << 


DDIR DMB 


fs) j|ODIRADDR PREFIX 
| ACBEXT 


V/ 


PSDBs 


SEC LIST 





DMBORG 


DLZUAMBO — Block Mover CSECT 


Extended Deseription 





| . Process all DMBs referenced in DDIR 
entries uhless already built or 
LOGICAL. 


Write message DLZ905I for GETVIS 
error. 


_ 2. The compression CSECTs and index 
maintenance CSECTs are moved to the 
new DMB. 

Write message DLZ570I for an invalid 
SEC list code found in a DMB. 


[ . The reference list is the last part of 
the DMB. If the DMB is not in the 


list, it is added. Repeat this step for 
each SEC. 


. Any addresses which do not fall within |. 
the DMB are set to zero. 










Routine Label 


PROCESS 


. Acquire storage for DMB and 


external reference tables. 


a) GETVIS Macro 


. Convert addresses which 


reference locations within DMB 
to offsets from DMB start. 


. Change DDIR addresses in the 


secondary lists to relative DMB 
numbers as to where the DMB 
entry is in the DMB reference 

list. 


. Return to Step 2 to process the 


next PSDB if there is one. 


. Move old DMB to new DMB. 


. If HSAM, include MTMOD or SDMOD 


for linkedit. 





/PSDBREL2 
DMBOUT 
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Extended Descri 





6. The names in the relocatable library 
of the required modules are 
DLZTAPE or DLZDISKI and 
DLZDISKO. 


OUTPUT 


DMB SEC 
DMBDALGR | | DMBXITAD 


PSDB 


DMB 
DMBSCTAB COMP 
XMT 
CSECTs 


SEC 


DMB 
| 
oa 


COMP 
CSECTs 
XMT 
CSECTs 


DLZUACBO 


DMB 
Reference DMBSECDB 
List 

DMB 





Routine Label 





DMBOUT1 | 


Figure 2-33.12. Write DMBs (Part 2 of 2). 
INPUT PROCESS OUTPUT 


DDIR 
>] 7. Write DMB to SYSLNK or SYSPCH. 4 en 


OUTPUT SYSLNK SYSPCH 


ppIR oo! 





—— =) 8. Free the new DMB storage and 
return to Step 1 to process the 


next DDIR if there is one. 


qamd FREEVIS Macro 


9. Return to caller. 


To Figure 
2-33.8 
Step 5 
-DLZUAMBO — Block Mover CSECT ‘DLZUACBO. 
Extended Deseriotion Boutne Label Extended Description . Routine Label 





7. The same subroutine is used for the DMBOUT3 
PSB also. . 

8. Write message DLZ926I for a 
FREEVIS error. 


é 
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Figure 2-33.13. Write PSB 
INPUT noma 


_ENOLSTA PSB Prefix 


| 1H 2-33.8 

PSIL Sap 6 
PSBXIOWK 
PSBSEGWK 


PSBPST 


PSBNDXWK 
PSBIOAWK 





PSIL 


PCB 
JCB 










DSGs SDBs 
LEVTABS 






SDBXP XMT PCB 


aaa 


PSB Prefix 


Boa 


| PSB 


PSIL 


PSB Prefix 


i 



















DBPCB1 


[oars 
088 


DLZUAMBO — Block Mover CSECT 


Extended Description 





} s 6. 1. The size calculation formula is 


PSBPST — PSBXIOWK — PSBSEGWK 
— PSBNDXWK — PSBIOAWK + length 


of PSIL. 


‘Write message DLZ90SI for GETVIS 
error. 


4. 


5. Write message DLZ926I for 
FREEVIS error. 


2-272 


PROCESS 


From Figure 


aaa 


OUTPUT 


1. Acquire storage for entire PSB. 


= GETVIS Macro 


2. Move pieces of PSB to acquired 
storage. 


PSB 





3. Convert addresses which 
reference locations within PSB 
to offsets from the correspond- 
ing PCB. 


4. Write intent list/PSB to 
SYSLNK or SYSPCH. 


i 


| SYSLNK SYSPCH 
5, Free the new PSB storage. 
== FREEVIS Macro 
6. Return to caller. To Figure 
2-33.8 
Step 6 
DLZUACBO 
Routine Label ' Extended Description Routine Label 





PCBMOV 
SDBMOV 
| FSBMOV 
FRIVMOV 


FERTREL 
PCBREL 
DSGREL 
SDBREL 
FSBREL 


PSBOUT 
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Figure 2-33.14. Build PSB (Part 1 of 2) 
INPUT 


From Figure 
2-33.8 
Step 9 


R1 
LIST 
eel 


DBDGEN 
Control 
Block 


PREFIX 


en 





DBDGEN Control Block 





SEGTAB 


SEGPARC 
SEGLEVEL 


SEGFLDTB 


FLDTAB 
FLDFLAG 
FLDSZE 





DLZDPSBO — Utility PSB Generator CSECT 


Extended Description 


1. Routine identifier DLZDPSBO vrnp is 
defined here. A parameter list con- 
taining DBD address is passed in 
Register 1. The contents of this DBD 
are used to create the utility PSB. 


The PSBGEN size will be the fixed 
size plus the number of segments 
times the length of SENSEG entry. 


It is possible to have an invalid access 
method error to pass back to 
DLZDLBLO. 


. The result will be stored in PSB 
Prefix. 


. The area is also cleared to zeros. 
Write message DLZ9OSI for GETVIS 
error. 





PROCESS OUTPUT 
. sg’ Calter 
> 1. Establish addressability and Registers 


calculate the required PSBGEN 
size. 


2. Using DBD, calculate required 
key feedback length and add to 
PSBGEN size. 


\l/ 


LIST 


3. Acquire PSBGEN storage. 


(oa GETVIS Macro 


PSBGEN 
Control 
Block 





DLZUACBO 


Routine Label Extended Description Routine Label 
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DLZDPSBO |DLZDPSBO 
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[ Figure 2-33.14. Build PSB (Part 2 of 2) 
INPUT PROCESS OUTPUT 


PSBGEN _ 
4. Fill PSBGEN Prefix and PCB. 


DBPCB 


SENSEGS 
DBREFTAB 


5. Fill SENSEG entries. 





6. Move DBD name to DB Reference 
Table. 


Caller 
Registers 


aah 


R1 


7. Return. A (LIST) 
R15 
A (DBD) code 





To Figure 
2-33.8 
' Step 9 
DLZDPSBO -- Utility PSB Generator CSECT DLZUACBO 


Extended Description Routine Label Extended Description Routine Label 





4, PROCOPT of ‘A’ is set in PCB for DLZDPSBO |CLRDONE 
all DBDs except secondary index 
where ‘LS’ is set. The ‘A’ is changed 
to the propex ‘load’ by batch initializa- 
tion if necessary. 


. Same PROCOPT as in Note 4. 
. In addition, no SORTAB is indicated. 
. The address of the built utility PSB 


is returned to the caller in the 
parameter list. 


— 
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| Figure 2-33.15. Message Writer 
INPUT From Caller ga PROCESS OUTPUT 


This routine can be called by 
DLZAUCBO, DLZLBLMO, 
DLZUAMBO, or DLZDPSBO. 


R1 
[i 1. Find matching message ID. 


Caller 
Registers 


2. Move message to output area. 


MSG 
3. Also move all inserts to message MSG/..MSG 


if any. 
4, Print message. 
Caller 
Registers 5. Return. 


ae ea 


To Caller 


{ DLZLBLMO — Message Writer CSECT DLZUACBO 


Extended Description Routine Label Extended Description Routine Label 


4. A subroutine in DLZUACBO 
CSECT is called to do the actual 
printing. 
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Figure 2-34. Prereorganization Utility (Part 1 of 4) 
s INPUT PROCESS y= OUTPUT 


From 

Batch 
initialization 
(Figure 2-3.4) 





Caller 


a . Save contents of R1 in PSTADDR. ">| PSTADDR _ Registers 


Address 





2. Open printer and reader and 
establish PST and SCD 
addressability. 


ae) OPEN Macro 
(ummm) cetive Macro 


- | P 3. Read control cards and 


SYSIPT validate content. At end of 
file go to Step 7. 


qa GET Macro 





fr ~=—ss«&A. Convert the dbdname to a | DMBNAME 
dmbname. 





DBIL=dbdname or 
DBR=dbdname 


DMBNAME 5. Acquire list space if required 
and enter DMB in control list. 


=== GETVIS Macro DLZUCDSO 


LEFPTR 


6. Return to Step 3 to process the LENAME 


next operand or control card. LECRNO 
LELEN 
LEFLG1 





Control! List 


DLZURPRO — Prereorganization CSECT DLZURPRO 


Extended Description Routine Label Extended Description Routine Label 


1. Module identifier (DLZURPROvrnp) |DLZURPRO 
is defined here. 


5. Control list entries contain DMB LSTINS 
names of data base and user options 
specified in control cards. 


This utility executes as ‘ULU’ under 


2~276 


DL/I control. No blocks or buffers 
have been loaded yet. Only the nucleu 
exists. Batch initialization passes the 
PST address to the logical relationship 
utilities rather than a PCB address. 


. Control card contains identifier as 


DBIL= (initial load), DBR= 
(reorganize), OPTIONS=, and 
dbdnames. In case of an input control 
card format error, message DLZ954I 
is printed and job terminates. 
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Macro DLZUCDSO contains the 
DSECT defining the format of a 
control list entry. 


Write message DLZ963I1 if an entry 
already exists for a dmbname. 


Write message DLZ965I if the number 
of control list entries exceeds the 
maximum of 20. 


Write message DLZ3911 if GETVIS 
fails. 





Figure 2-34. Prereorganization Utility (Part 2 of 4) 





INPUT PROCESS , OUTPUT 
DLZUCDSo 7. Continue to next step for each 
ee referred to in control SOaN 
7 Address 
Control List At end of entries, go to Step 15. 
PSTADDR PST 
[ 
ae DL/I Blocks 
T~Ssé< > sé8, Load utility PSB. and Buffers 
DLZBLKLD Macro 
(umm sswou 
Utility PSB 
PDIR 
> 9. Find the PCB representing this PRMPCBAD 


data base. Pee 


PCB 
DBPCBDBD 
DBPCBJCB 


DBDNAME 


[ 


SDB 


JCB 
JCBSDBND | |SDBLEN a > 10. Scan all segments in data base 
icsonan | for logical relationships (LR) 
ee ane and continue for each found. 


At end, return to Step 7. 





DLZURPRO — Prereorganization Utility DLZURPRO 


Extended Description Routine Label Extended Description Routine Label 


7. Write message DLZ964I for no DBIL [DLZURPRO |SCAN 
or DBR control cards. 


Write message DLZ976lI if the 
dbdname specified is an index DBD. 


. The DLZBLKLD macro moves the 
dmbname to PST at PSTPCPSB and 
sets utility suffix ‘U’ and calls DL/I 
with the BLDB call function. 


Write message DLZ9S6I for a data 
base control block build failure or 
if there is no PCB. 


R1 is returned with the address of the 
PSBLIST. 


. If a LP/LC exists for a segment, 
continue to the next step to look at 
the secondary list entries for the 
segment. After each SDB with a LR 
has been processed return to Step 7 
to process the next data base control 
list entry. 
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Figure 2-34. Prereorganization Utility (Part 3 of 4) 
INPUT PROCESS OUTPUT 


Se —— —P 11. Scan all SEC entries for logical 
parent (LP) or logical child 
(LC) entry and continue for each 


found. At end, return to Step 10. 


. SEC DDIR 


DMBSCDE | | DDIRADDR | 


ae 12. Find the PSDB and then the SEC 


| entry of the referenced segment 
that points to this segment in 
PSDB order to find the LC’s LP or 


7 the LP’s LC. 
DMBLST 7 
SDB 
: : D 
13. Build a data base list entry piven 


for the found LP or LC if it | | 

exists in a data base not on the 

DBIL= or DBR= card. Segment List 

Entries 
Secondary List 
Entries 
14. Build a segment list entry for 
the segment and a secondary aasoun 
list entry. Return to Step 11. 
LENAME 





DLZUCDSO 


LESLPTR 15. Print and punch DBS cards if 


requested by OPTIONS. 
LEFLG1 


LEPSDBSG SYSLST SYSPCH 


Control List 


16. Determine device type and open 
the control data set. 


Guan} DLZDVCE Macro 
(SYS012) == OPEN Macro 


DLZURPRO — Prereorganization Utility DLZURPRO 





Extended Description Routine Label Extended Description Routine Label 





11. 15. DBS indicates data base must be 
scanned using SCAN utility 

12. The correct SEC is found by comparing (DLZURGSO). 
the dbdname in the SEC to the 
dbdname in the SDB. Write message DLZ962I to list 
segments scanned. 

Each SEC for the segment is examined 
to see if it is a LP or LC entry. . Write message DLZ984I if there is an 

invalid device assignment for 
Write message DLZ965I if a SEC is SYSO12. 


not found with a matching dbdname. 


. Write message DLZ98SI for a limit 
check failure. 


., Segment entries contain segment 
names involved in logical relationships 
(LR). 


Secondary list entries contain DMB 
names which refer to logically 
_ related data bases. 


As control data set list entries are built, 
each record is calculated to determine a 
maximum record length. The largest size 
is saved and put into field LESRTSZE 
when the control data set is written 
(Step 17). 
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Figure 2-34. Prereorganization Utility (Part 4 of 4) 
INPUT PROCESS OUTPUT 


LSTHD 







DLZUCDSO 


Data Base 
List Entries 
Segment List 
Entries 
Secondary 
List Entries 


17. Write Control list to control 
data set. 


Control 


Data Set 
(am PUT Macro (SYS012) 


Control List 
18. Close control data set, printer, 
reader, and punch. 
== CLOSE Macro 
Caller : 19. Return. 
Registers 


To 
Batch 
Initialization 
(Figure 2-3.4) 
DLZURPRO — Prereorganization Utility DLZURPRO 
Extended Description Routine Label Extended Description Routine Label 








Ly 


18. Write message DLZ966lI for a 
normal termination. 


19. 


. Licensed Material - Property of IBM 2-279 


Figure 2-35. DB SCAN (Part 1 of 8) 
INPUT PROCESS 


From 
Figure 
2-3.4 


Ri 
A (PST) 


SCD 


SCDDSEHO 


PST 
{. PSTSCDAD 


Snot o » 


console. 





I 


AFINDDTF 


vy, 
, 
NO 


. Open Control 


I 


_ 


BALR 


Control 
Data Set 





I 


4 3. Read all control records. 
Control 
ee = 


4. Close control data set. 


[J 





Scan Input Cards 
(Optional) 


DLZURGSO ~— DB SCAN CSECT 


Extended Description Routine Label 


1. Module identifier is defined here. This |DLZURGSO |DLZURGSO 
utility executes as ‘ULU’ under DL/I 
control. No blocks or buffers have 
been loaded yet. Only the nucleus 
exists. Batch Initialization passes the 
PST address to the logical relationship 
utilities rather than a PCB address. 
The DLZDSEHO prefix contains 
addresses to routines within 
DLZDSEHO. The routines are used 
by this utility. The addresses are 
moved to a constant area beginning 
at ADSEHO. 


. The ‘FINDDTF’ subroutine of 
DLZDSEHO is used to check that 
SYS012 is properly assigned to a disk 
and to fill the correct device type 
in DTF. 


Write DLZ984] if the control file is 
not assigned to a disk. 


. The Control Data Set is moved from 
the 1/O area to storage acquired by 
GETVIS for further processing. 
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Establish addressability and 
open the printer reader, and 


OPEN Macro 


Data Set 


DLZDSEHO 
Check ASSGN and 
fill DTF, 


OPEN Macro 


GET Macro 


GETVIS Macro 





CLOSE Macro 


5. Read input control cards. 


GET Macro 








OUTPUT 


PSTADDR 


ADSEHO 


Caller 
Registers 


DBNAMEFC 


poe 


db list ent. 
segm list ent. 


sec list ent. 


Control Data Set 


DLZURGSO 


Extended Description 


3. (con’t) 


Write DLZ3911 for a GETVIS 
failure. 


Write DLZ957I for no control data 
set or, if the ID is not ‘CONTROL 
DATA SET”. 


. Input on ‘DBS=’ card is used to 
modify Control Data Set in core. 
‘RSTRT=’ and/or ‘CHKPT=’ specify 
checkpoint/restart capabilities. 
‘ABEND’ card used for testing. 


Write DLZ954I for a control card 
format error. 





Routine Label 


CDSEOFB 
NXTCR 


. 


Figure 2-35. DB SCAN (Part 2 of 8) 
INPUT PROCESS OUTPUT 


DLZUCDSO  __ _ aes —> a. For DBS=, set up list entry scan. DLZUCDSO 


LENAME 4 LEFLG1 


RSTRTVC RSTRTN 





Control 
Data Set 





c. For CHKPT=, set up to perform CHKPTINC 


checkpoint. 2 ._] 
AOPENWRK , 6. Open work data set. 


AWORKFIL 


7. If not restarting, go to step 14. 
AFINDDTE . S 8. Open Restart file. 
RESTART = DLZDSEHO 
(optional) 
Check ASSGN 

BALR land fill DTF 

au) 07 EN Macro 
9. Copy records to output file (including 


[} / maa checkpoint records) until the check- 


point record to restart from is found. 





WORKFIL 





RESTART 
(op tional) 
CHPT Record == GET Macro 
Ge) 2UT Macro 
DLZURGSO — DB SCAN CSECT DLZURGSO 
Extended Description Routine Label Extended Description Routine Label — 





; DBSREC 
; RSTRTREC 
6. Write DLZ984I for unknown or ignored | 
device type. 
. Restart records are copied from the 
previous WORKFIL until the specified 
checkpoint record is found. An SSA 
is set to do qualified GU on last 
segment to reestablish position. 
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Figure 2-35. DB SCAN (Part 3 of 8) 


INPUT PROCESS 


10. Get ready to position the data 
base to the segment identified 
in the requested checkpoint 
record. 


CKPT Record 


[| 


tion record to the work file. 


CKPT Cont 
Record 


GET Macro 


(optional) 


(=x) PUT Macro 







1 ____—__ > 11. Copy the checkpoint continua- 
SD 


12. Locate the data base list entry 
and segment list entry in the 
Control Data Set to restart 


Control ‘ 
Data Set processing from. 


DLZUCDS50O 


13. Close Restart file. 


(a=) CLOSE Macro 


——-—-p 14. Get a data base list entry and 
continue to step 15 for each 
one found. 

After all list entries have 
been processed, go to step 34. 





' DBNAMEFC 


CURDBPTR 


DLZURGSO — DB SCAN CSECT 


Extended Description Routine Label Extended Description 


10. The SSA built is a qualified key 
call — ‘segname*C (key) to be used 
in the call at step 21. 


. A continuation checkpoint record 
contains the key value which is 
moved to the SSA for a qualified 
key call. 


. Write DLZ975I Restart complete. 


. Write DLZ966I for normal program 
termination if there are no more 
DB list entries to process. 
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OUTPUT 





SSA 


WORKFIL 


DBNAMEFC 


CHKORGS 





CURDBPTR 


Ee 


DLZURGSO 


Routine Label 





Figure 2-35. DB SCAN (Part 4 of 8) 
INPUT PROCESS OUTPUT 


DLZUCDSO 0 —-— -— 15. Determine if this data base is 


to be scanned. Return to step 
14 if not. 


DLZUCDSO. psTADDR [Pe———r_’ 16. Load Utility PSB. 
(amd DLZBLKLD Macro 
ASMTDLI DL/! Blocks 
DLZBLKLS 
A (BLDB) 





and Buffers 
BLDB function 
for utility PSB 






DOS CIL 
PST PDBN > 17. Find the PCB representing this PRMPCBAD 
[sree J LJ data base 
(=m) CALL Macro 





PDIR 


PCB 
PDIRADDR DBPCBDBD 


ASMTDLI 


UNLD 






PSB 
PSBDBOFF 
PSBLIST 





; CURSGPTR 
PCB CURDBPTR ee 18. Save PCB and JCB pointers. 
DBPCBJCB a Set up initial segment list 
entry. 
PRMLST SSA 
JCB DLZUCDSO as 
JCBSDB1 LESLPTR fee ee al 
JCBSDBND A (PCB) 
CKPT Record Bal SDB 
EDBF3}— 
DLZURGSO — DB SCAN CSECT DLZURGSO 
Extended Description Routine Label Extended Description Routine Label 


15. If DBS control cards were present, 
only those data bases in the control 
list that were on DBS cards are 
scanned. 


Write DLZ970I scan processing 
started. 


. The DLZBLKLD macro moves the 
dmbname to PST at PSTPCPSB and 
sets the utility suffix ‘4’. The ‘BLDB’ 
call loads all blocks for the PSB 
specified and allocates buffers. 


Write DLZ956] for a data base control 
block build failure. 


. If a PCB is not found, an UNLD is 
done to release the buffers before 
the next BLDB call (return to step 
16). 
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Figure 2-35. DB SCAN (Part 5 of 8) 
INPUT — 


DLZUCDSO 


segment 
list entry 





|[Awsa__ 


User DL/I 
Data Base(s) 





CURSGPTR DLZUCDSO 
LEFPTR 
LEPSDB 


CHKORGS 





LELSDB 


PSDB 


DMBLST 





DLZURGSO — DB SCAN CSECT 


Extended Description 





19. The Control Data Set entries are 
modified to save SDB and PSDB 
addresses. 


Write DLZ9691 if an SDB is not 
found for the segment in the segment 
list entry. 


. The size is the longest needed for 
this data base. Any previous I/O 
area is freed. 


. Position is by a qualified key call. 


. The first segment list entry will 
either be the initial entry for the 
db or the segment list entry to 
restart from. 


Write DLZ971I Scan processing 
completed for this DB if no more 
segment entries. 
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JCB SDB 
JCBSDBND SDBPSDB 
CURSGPTR 

PRMLST 


PROCESS 


19. Locate the SDB and PSDB for 
each segment list entry that 
is to be scanned for this db 
entry. 


20. Get I/O areas. 
FREEVIS Macro 


(a=) GETVIS Macro 


21. If restart, position the data 


base. 
(xu) CALL Macro 


ASMTDLI 


22. Get a segment list entry, 
build a parm list for its 
segment type and continue to 
next step. At the end of 
entries, go to step 14. 


Routine Label Extended Description 


- Property of IBM 


OUTPUT 


DLZUCDSO 


PRMLST 


DBPCBFD 


PRMLST 


DLZURGSO 


Routine 


1/O area 





SSA 


segname 





Label 


Figure 2-35. DB SCAN (Part 6 of 8) 


INPUT PROCESS 


PRMLST 
A (PCB) 


ames 


A (SSA) 


User DL/I 
Data Bases 





\i/ 


PCB — 
DBPCBSTC 


step 22. 


PSTADDR 


\L/ 


JCB 
JCBLEVIC 
LEV SDB 
LEVTTR SDBDSGA 
SGD 
SCDDDBHO 


PSDB 


DMBPTR 


PSTDATA 


SEGM in 
buffer 





|_| 


Parm List 


LFT ptr 


LTB ptr 
| bP ptr 


s . A (CDSREC) 


PSDB 


DMBLST | 











ers 


DLZURGSO — DB SCAN CSECT 


Extended Descri Dtion Routine Label 





23. Every occurrance in the data base of 
the LC or LP segment type to be 
scanned is read and a workfile record 
created for it. 


. If the return code is ‘GB’, indicating 
EOF for this segment type, return 
to process next segment list entry. 


. Scan must have the prefix information 
to give to DLZDSEHO. 


Write DLZ958I for a buffer handler 
error return. 


. In addition, R11 has the address of 
WORKFIL DTF, R1 has the PST 
address, and PSTWRK1 has the 
‘FUNCIHPS’ and SDB address. 


23. Issue a GN for segname. 


-— 


24. If there are no more occurrances 
of this segment type, go to 


25. Get buffer address of segment. 


(om DLZDBHOO 


BALR 


26. Fill in parameter list for 
DLZDSEHO. 


27. Go write WORKFIL record. 


eam) DLZDSEHO 


BALR 





OUTPUT 


1/O Area 


CALL Macro 


ASMTDLI 


GN segname 
to DL/I 





PST 
PSTFNCTN 
PSTDSGA 
PSTBYTNM 


PSTDATA 
PSTBYLCT 


prefix + 
segment (in 
buffer) 





Parm List (R3) 
LTB ptr 











save 
registers 


WORKFIL. 





DLZURGSO 


Extended Description Routine Label 





26. (con’t) 


Test routine in DLZDSEHO will 
determine the output records required 
by scanning the SEC list. 


. Registers are saved and then restored 
upon return. 


Write DLZ952I for an error return 


code from DLZDSEHO. 
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Figure 2-35. DB SCAN (Part 7 of 8) 
INPUT PROCESS OUTPUT 


CHKPTINC | CHKPTLOC — —— — 628. Perform checkpoint operation if CHKPTLOC 


C_] _] required. Otherwise, skip to step 33. 


; 


Checkpoint 
Record 


PRMPCBAD PCB | 
[__] [Berceoeo_] [| ———_ 29. Build checkpoint record. 


X80’ 
CHKPTN | 
CHKPTSVC 
CHKPTSVD 
CHKPTSVE 





ao 30. Write checkpoint record to 


WORKFIL. 


ee PUT Macro 
AWRKDSEH PCB 


| aaa DEECEMIEE . Build the continuation checkpoint 
record. 


= 
O 
st] 
A 
Tl 
rc 


Checkpoint 
Record 


X’80' 
length of record 


Checkpoint CHKPTN | 


Record: 


[ 


reapers 32. Write continuation checkpoint 


Record record to WORKFIL. 


Leslesentel 


key length 





key 





WORKFIL 
PUT Macro 


] TRUNC Macro 


33. Return to step 23 to get next occurrance 
of this segment type. 


ul 


DLZURGSO — DB SCAN CSECT DLZURGSO 


Extended Description Routine | Label ‘Extended Description | Routine Label 





28. A checkpoint record is written after 
every ‘n’ work file records. ‘n’ is 
specified on the CHKPT input card. 


. Note that the checkpoint record is 
built with zeros where the RBN 
number would be (CHKPTSUB). 
This forces an *C call (qualification 
by concatenated key) instead of 
*T {retrieve by direct address) 
during restart processing. Retrieve 
by direct address would be used if 
working with HISAM data sets. 


. Message DLZ967I is written to the 
console giving the current check- 
point record number for later 
reference. 
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Figure 2-35. DB SCAN (Part 8 of 8) 
INPUT PROCESS OUTPUT 


= 


Gard Gantcal > =—s34. Dump if non-zero error code 
(optional) and ABEND was on a control 


RTCD card. 


[J Gama PDUMP Macro 
35. Close all files. 


(===) CLOSE Macro 





Caller 
Eisulsiers 36. Return. 
DLZRRCOO 
2-3.4 
DLZURGSO — DB SCAN CSECT DLZURGSO 
Extended Description Routine Label Extended Description Routine Label 


34. 


36. Indicate to batch initialization that 
UNLD is not necessary (R15 = 4) if 
this utility is terminating before any 
blocks were loaded or if there was a 
control block build failure. 
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Figure 2-36. Prefix Resolution (Part 1 of 4) 








INPUT m PROCESS . 2 OUTPUT 
From 
DOS/Vs | 
1. Establish base addressability. 
R12 R8 
«=m OPEN Macro Sa [7 
COMRG and 
GETIME Macros 
2. Read control card and close SYSIPT. CNTLCARD 
Card 1/O Area 
a=) CLOSE Macro 
3. Determine device type and open the 
CONTROL data set. 
(= DLZDVCE Macro 
(==) OPEN Macro 
CDSHD DBNAMEFC | 
4. Read all control records. | 
(a=) GET Macro 
CONTROL (am) GETVIS Macro 
Data Set 
S| CONTROL 
5. Close the CONTROL data set. | Data Set 
(eam) CLOSE Macro 
DLZURG10 — Prefix Resolution CSECT i ; ’ DLZURG10 | 
_ Extended Description Routine Label Extended Description Routine Label 





1. Module identifier (DLZURG10vrnp) DLZURG10|DLZURG10 
is defined here. 


The time and date are acquired and 
message DLZ9681 is printed at this 
time to indicate the beginning of 
execution for DLZURG10. 


. Write message DLZ9541I for an input 
control card format error. 


. Write message DLZ984]I for an invalid 
device assignment for the file. 


4. Write message DLZ9571 if there is no 
control data set or if the ID is not 
“CONTROL DATA SET”’. 


Write message DLZ391I for a GETVIS 
failure. 


The maximum record length calculated 
by the prereorganization utility is 
obtained from field LESRTSZE and 
passed to SORT. 
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Figure 2-36. Prefix Resolution (Part 2 of 4) 
INPUT PROCESS OUTPUT 


—  — +B 6. Determine device type and open first 
input workfile and output files. 
WRKINnn 
INDXWRK 
pile eam DLZDVCE Macro 
CNTLCARD a= OPEN Macro 


CNTLIR 


Card I/O Area 


©) 


INDXWRK 


Cc) rE _ 7. Load and execute SORT/MERGE. 


WRKINnan (um=> LOAD Macro : CQ 


=> SORT/MERGE _ INTRMED 
sak |__| 





8. Close secondary index data set if it was 
opened. 
Gm CLOSE Macro. 
eo 9. If no logical relationships, go to Step 14. 
ore 

Image 

Library 
DLZURG10 — Prefix Resolution CSECT DLZURG10 
Extended Description Routine Label Extended Description Routine Label 


6. The secondary or logical data sets may 
or may not be opened depending on the 
user option on the input control card. 


"7. Write message DLZ9821 if the return 
code from SORT is not zero and go 
to Step 15. 


Sort is by (13, 255, A, 5, 1, A). Exits 
E15 and E35 are described in Figures 
2-36.1 and.2-36.2. 


. If there was no data put to the second- 
ary index data set, put a dummy record 


before closing. 


SORTIIF 
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Figure 2-36. Prefix Resolution (Part 3 of 4) 
INPUT PROCESS OUTPUT 


> 10. Close intermediate file and 
C) determine device type and open 
for input. 
INTRMED 
CLOSE Macro 


DLZDVCE Macro 


ITT 


OPEN Macro 


——- ——P 11. Determine device type and open 
logical relationship output 
data set. 
WORKFIL , DLZDVCE Macro 


1 


OPEN Macro 


R1 


Cs 12. Load and execute SORT/MERGE. 


PARLST2 eam LOAD Macro 
[E-— qu) | sonTMeRcE esd 





INTRMED 





>? 13. Print statistics and message 
summary if requested. 


CONTROL ==> PUT Macro SYSLST 
Data Set 
DLZURG10 — Prefix Resolution CSECT | . DLZURG10 


Extended Description Routine | Label | Extended Description Routine Label 








10. 


11. 


12. Sort is by (29, 16, A 5,1, A). Exits 
E15 and E35 aré described in Figures 
2-36.3 and 2-36.4. 


Write message DLZ982I if the return 
code from SORT is not zero and go 
to Step 15. 


. Control data set contains options as 
specified in DLZURPRO. 
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Figure 2-36. Prefix Resolution (Part 4 of 4) 


INPUT @ PROCESS 
CNTLCARD  RTCD 
DUMP 
— > 14. Dump if error code is 16 or 


Card |1/O 
Area 





15. 


16. 


17. 


DLZURG10 — Prefix Resolution CSECT 


Extended Description 


14. Write message DLZ966I for normal 
program termination. 


15. 
Lie 


Routine 


8 and DUMP was specified on 
the control card. 


Gz: PDUMP Macro 


Close the printer. 


Gam CLOSE Macro 


Close INTERMED and WORKFIL if 
required. 


= CLOSE Macro 


Return 


EOJ Macro 





CLOSRT2B 
CLOSRT2D 


Extended Description 





OUTPUT 


SYSLST 


To DOS/VS 


DLZURG10 


Routine _ Label 
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Figure 2-36.1. SORT E15 (DLZX15S1) 














INPUT PROCESS : ¢OUTPUT 
From 7 
SORT/ 
MERGE 
©) PARMADDR 
T 1. Read workfile records and pass } ADD 
WRKINnan to SORT/MERGE. 
qa SAVE Macro 
umd GET Macro 
eum RETURN Macro 
CNTLCARD 
—_— > 2. At end-of-file, close workfile 
CNTEIEC and open next one, if any, and - 
Saare return to Step 1. 
Area 
Guam CLOSE Macro 
es OPEN Macro 
PARMADDR_ 
3. When no more workfiles, indicate 
end to SORT/MERGE. 
To 
SORT/ 
MERGE 
DLZX15S1 — SORT E15 CSECT -_ DLZURG10. 
Extended Description 


Extended Description Routine Label 





record length calculated by the prereor- 
ganization utility (DLZURPRO) and 
passed to SORT by the prefix resolution 
utility (DLZURGI10). Original record 
length is saved in last 2 bytes of LRECL 
field. 


Indicate ADD to SORT/MERGE after 
each GET. 


. CNTLIFCis the number of input workfileg 
specified on the utility control card. 
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Figure 2-36.2. SORT E35 (DLZX35S1) 


INPUT PROCESS OUTPUT 








From 
SORT/ 
MERGE 


INRECAD PARMADDR 


rs | a 


R1 


A (Parm List) 


Parm List 


A (record) 


1. Establish address to record DLZURWF1 


passed by SORT/MERGE. [| 


j= SAVE Macro 


2. If the record address is zero, 
go to Step 7. 





DLZURWE1 CDSHD . 


; DLZURWF3 
INTERMED _ 
INDXWRK _ 


PARMADDR 


A (Parm List) 


ALTYPE 3. Process record depending on 
record type. 


CONTROL 
_ Data Set 4. If logical relationships, 


write to intermediate file. 


=e PUT Macro 





5. If secondary indexing, write 
to SI output file. 


GED PT Mecro 


6. Indicate DEL to SORT/MERGE. 


RETURN Macro 


Parm List 


7. Indicate END to SORT/MERGE. 


A (DEL) or A (END) 


RTCD 


SOOT 





SORT/ 
MERGE 


DLZX35S81 — SORT £35 CSECT DLZURG10 


Extended Description Routine Label Extended Description Routine Label 





1. SORT/MERGE passes one record ata |DLZX35S1 |DLZX35S1 
time to this exit. The record is repre- EXIT35S1 
sented by the macro DLZURWF1 which 
contains the DSECT defining the 
format. The original record length is 
restored before processing. 


6. SORT/MERGE gets another record and RETSORT1 
_ reenters this exit at Step 1. 


ENDSORT1 


. Macro DLZURWE3 contains the 
DSECT defining the format of the 
output logical record and later used as 
input for DLZURGPO. 


Possible errors are: 


DLZ9551 — Invalid input record. 

DLZ977I — Duplicate record for LP. 

DLZ9781 — Caution — no LC for LP. 

DLZ9791 — No LP found for LC. 

DLZ980I -- No LC found for LT. 

DLZ989I — Multiple LC/LP with no LT 
pointer specified. 


. This file used as input for second 
SORT/MERGE. 


. This is final output for secondary 
index relationships. 
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Figure 2-36.3. SORT E15 (DLZX15S2) 
INPUT =F om PROCESS 


SORT/ 
MERGE 


| <i 1. Get records from intermediate 
Ps file and pass to SORT/MERGE. 
INTERMED | Gam save macro 
=m GET Macro 





2. At end-of-file, indicate end 
to SORT/MERGE. 


DLZX15S2 — SORT E15 CSECT 


Extended Description Routine Label Extended Description 





1. This file was written during first sort. |DLZX15S2 |DLZX15S2 


2-294 Licensed Material - Property of IBM 





To 
SORT/ 
MERGE 





OUTPUT 


PARMADDR 


A (Parm List) 


Parm List 





PARMADDR 


A (Parm List) 


DLZURG10 


Routine 





oN 


Figure 2-36.4. SORT E35 (DLZX35S2) 
INPUT PROCESS OUTPUT 


From 
SORT/ 
MERGE 


R1 


A (Parm List) 


PARMADDR INRECAD 
A (record) 


1. Establish address to record 


Farm List passed by SORT/MERGE. 
(=> SAVE Macro 
2. If the record address is zero, 


DLZURWF3 





DLZURWF3 go to Step 6. 


3. Process record depending on 
record type. 


Work Area 


| 
O) 


WORKFIL 


4. Write to LR output file. 


jm PUT Macro 


5. Indicate DEL to SORT/MERGE. PARMADDR 


A (Parm List) 


Parm List 


A (DEL) or A (END) 


RTCD 


RETURN Macro 


6. Indicate END to SORT/MERGE. 


Jo. 





SORT/ 
MERGE 


DLZX35S2 — SORT E35 CSECT DLZURGi0 


Extended Description Routine Label Extended Description Routine Label 


. SORT/MERGE passes one record ata |[DLZX35S2 {|DLZX35S2 
time to this exit. EXIT35S2 


. Possible errors are: TP30RT 


DLZ9SS5I — Invalid input record. 
DLZ980I — No LC found for LT. 
DLZ981I — Duplicate record for LT. 


. This file used as input for the prefix 
update utility (DLZURGPO). 


. SORT/MERGE gets another record and 


reenters this exit at Step 1. 
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Figure 2-37. Prefix Update Utility | 
INPUT 7 eer; PROCESS , OUTPUT 


| 1. Read control card. 


SYSIPT | 
2. Determine device type and open 
input files. 


3. Read input record. 


SYSO11 SYS014 
4. If not already loaded, load data 


base control blocks. 


| 5. Process input record. 





D 
ata Base Data Base 
6. At EOF, close all files. 
Return to 
DL/I 
DLZURGPO — Prefix Update Facility DLZURGPO 
Extended Description . Routine Extended Description Routine Label 





1. 


2. DLZDVCE macro obtains data from 
PUB. Device type may be TAPE or 
DASD. : 


. DLZBLKLD macro is used to load DB 
blocks dynamically. 


. TYPE 0 and TYPE 1 records (LC/LP) 
are processed by buffer handler calls. 


TYPE 4 records (SI) are processed by 
DL/I INSERT/UPDATE calls. 
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Figure 2-38. Workfile Generator (Part 1 of 2) 


INPUT , SO ODDLEO gm PROCESS OUTPUT 
Figure 2-10 


1. Perform initialization (Figure 














Erom 2-38.1.). 
DLZURGSO 
Parameter Fig. 2-35 
List (R3) 
, 
2. lf DLZURGSO is caller, 
aces 
A. Initialize dummy reload a 
pee. | prefix header with par- 
wie ameters. 
_ PSTUSER 
: tore its address. 
| | 
wilde ; 3. If end of secondary list, go 
to step 7. 
DMBSE , 4. Match control data set entry 
with LC or LP secondary list 
entry. 
Control | 
Date et tTH——___» 5. if LP segment, 
WORKFIL 
A. Build Type 00 record. Record 
DMB PSTUSER 
[ B. Put to WORKFIL. 
DBPCBKFD _1/O area C. Go to step 3. 
segment 
6. Go to Figure 2-38.4 to process 
LC segment. 
WORKFIL 
DLZDSEHO — Workfile Generator DLZDSEHO 
ption Routine Label Extended Description Routine Label 


Extended Descri 









1. This primary entry point is used by IDLZDSEHO {INIT 
Load/Insert when a data base is being 
initially loaded or reloaded. There are 
7 fullwords of addresses immediately 
preceding this entry point used by 
modules that interface with 
DLZDSEHO. A logical parent or 
logical child record is input to this 
module. . 


2. This is the primary entry point for the 
scan utility. 


3. This routine must be re-entered when 
the input segment is an LP because 


it could have more than one LC type. 


4. 


5. Description of WORKFIL record can 
be found in DLZURWF1 dsect. 
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Figure 2-38. Workfile Generator (Part 2 of 2) 
INPUT ge PROCESS OUTPUT 


7. Exit with return code. R15 


aaa! 


Return to 
Caller 


NOLZDSEHO — Workfile Generator DLZDSEHO 


Extended Description Routine | Label Extended Description _ . Routine Label — 
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7. If any error occured, call DL/I error 
message module to write DLZ0071 
mhessage on console with return code. 


a = 


Mies 


Figure 2-38.1. Initialization 


INPUT From Fig. PROCESS OUTPUT 
2-38 Step 1 


Vi/ 


PSTWRK1 


1. Establish addressability for 


[ DL/I tables needed. 


2. If WORKFIL is not open, go to 
Figure 2-38.2 to open it. 





WORKFIL 
3. Open Control Data Set and read 
all records. 
Control Control 
Data Set Data Set 
4. Close Control Data Set. 
To Fig 2-38 
Step 2 
DLZDSEHO — Workfile Generator DLZDSEHO 
Extended Description | Routine Label ‘Extended Description Routine Label 









1. The secondary list entries for the input IDLZDSEHO |INIT 

segment are the primary source of 
information from the DL/I blocks. 

. The address of the DTF is found in | 
the address list at the beginning of 
DLZDSEHO. If it is 0, this workfile 
must be opened. 

. This open is done only once. The LPLCA 
*FINDDTF’ routine is used to 
determine the correct DTF. If more. 
than one record exists on the CDS, 
a GETVIS is done to hold the entire 
file in storage at one time. 
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Figure 2-38.2. Open Workfile 


INPUT From Caller 
(See Note) 


R13 R14 


A (regave 


R15 


addr of 
OPENWORK 





R15 


DLZDSEHO — Workfile Generator 


Extended Description 





Note: This routine is called by DLZDSEHO, 
DLZDXMTO, and DLZURGSO. 


1. 


3. If control is returned to address in 
R14, an error occurred. R14 + 4 is 
the normal return. 


. R15 has address of correct DTF as 
returned by FINDDTF. 


. When the WORKFIL is open, the 
address is saved in the address list in 
the beginning of DLZDSEHO csect. 


. If an error was detected, control is 
returned to the address in R14. 
Normal return is R14 + 4. 
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Routine 


PROCESS 


1. Establish addressability. 


2. Set up input for FINDDTF. 


3. Get DTF address (Figure 2-38.3). 


4. Open DTF for WORKFIL. 


5. Save DTF address. 


6. Exit to R14 + 4. 


Label _ Extended Description 





OPENEXIT 
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OUTPUT 










RO 


SYS#13 
R2 R3 

A (disk A (tape DTF) 
DTF) 


FO 


WORKFIL SYS013 


Entry Point — 4 
[A (DTF) 






Return to 
Caller 


DLZDSEHO 





Figure 2-38.3. Find DTF 


INPUT From Caller PROCESS OUTPUT 
(See Note) 


RO re —— > 1. Issue DLZDVCE macro. Pub entr 
system as 
number 


R15 


A (tape DTF) 


Aa 2. If a tape, set R15 to tape 


DTF address. 


R2 3. If a disk, 
A (disk DTF) - DTF 
A. Modify DTF a 
B. Set R15 to disk DTF address. R15 


A (disk DTF) 


4. |f other than tape or disk, 
go to step 6. 


5. Exit to R14 + 4. 


Return to 
Cailer 





6. If IGN, set R15 to zero. R15 





7. Exit to R14. 





Return to 
Caller 





DLZDSEHO — Workfile Generator DLZDSEHO 


Extended Description Routine Label Extended Description Routine Label 





Note: This subroutine is called by 
OPENWORK, DLZDSEHO, and 
DLZURGSO. DLZDVCE macro finds 
PUB entry for given programmer logical 
unit and the device type byte is used to 
determine further processing. 


OPENWORK |FINDDTF 
. 2400, 3410, and 3420 are supported. 


. 2314, 3330, 3333, 3340A & B are 
supported. 


. Normal return. 


. This allows DLZDXMTO to build FINDERRX 
secondary entries. 


. This is the error exit. FINDERRU 
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Figure 2-38.4. Build LC Output 


INPUT PROCESS 












From Fig. 
2-38 Step 6 






1. Build type 10 record and 
write it to WORKFIL. 


PSTUSER 







2. If LTF pointers and non-unique 
sequence field, build and write 


DBPCBKFD type 20 record. 


3. If LTB pointers and non-unique 
sequence field, build and write 





type 30 record. 
Control 
Data Set 
DLZDSEHO — Workfile Generator 
Extended Description Routine Label Extended Descri 








CHILD 
LCl 


LC120A 
LC130B 
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OUTPUT = 


WORKFIL 
Record 


WORKFIL 
Record 


WORKFIL 
Record 


To Fig 2-38 
Step 7 


DLZDSEHO 


notion — Routine Label 





Figure 2-39. Log Print Utility 


INPUT From PROCESS OUTPUT 
DOS/VS 


1. Read and process contro! cards. 


DLZLPCCO 


(amp Control Statement 
Processor 2-39.1 


If any errors detected by DLZLPCCO, 
go to Step 9. 





2. Open output log if requested. 


3. Determine log device type and 
open log file. 


4. Read log records, deblock, and 
determine record type. 





LOGINO1 to LOG!INnn 5. Print log records 


L 


SYSLST 


OO 


6. Write !og records to tape if requested. 
LOGOUT 


7. Close input log file. If more files, 
return to Step 3. 


8. Close output log if requested. 


9. Print informational statistics 
and error messages, if any. 


and/or 





To 
: DOS/VS 
DLZLOGPO — Log Print CSECT DLZLOGPO 


Extended Description Routine Label Extended Description Routine Label 


. Register 1 points to log print common |DLZLOGPO J]GETCARD 
area. 


. Output log requested by ‘COPY’ on 
*LO’ statement. 


. DLZDVCE macro obtains data from 
PUB (physical unit block) and modifies 
DTF. If VSAM log, ACB is modified 
manually. 


. Valid DL/I record types are: 


O Data base record (X‘50’ and X‘51’) 
Open record (X‘2F’) 


Termination record (X‘07’) 


Oo 
0 Scheduling record (X‘08’) 
O 
© Checkpoint record (X‘41’) 


. Records are printed in either keyword 
or dump format. 


. Log records are written to tape as read. 


. nn of LOGINnn is incremented by 1 
if more files. 


. Output log is closed when log record 
in error is encountered. 





Licensed Material - Property of IBM 2-303 


Figure 2-39.1. Control Statement Processor (DLZLPCCO) 
INPUT PROCESS OUTPUT 





From Figure 
2-39 Step 1 


1. Read control statements. 





SYSIPT 
2. Validate control statements and save Log Print Common Area 
information in log print common area. | 
3. Return to DLZLOGPO. 
To Figure 
2-39 Step 1 
DLZLOGPO — Log Print CSECT | | _ DLZLOGPO 
Extended Description Routine Label Extended Description Routine Label 


1. Possible card types are: DLZLPCCO | GETCARD 
‘LO’ — describes print options, 
‘LS’ — describes additional selective 
print options, 
‘LI? — describes input log files. 


2. Flag ERROROCC in LOGPFLG1 is set if LOO0O0 
any errors are detected. LIO0O 
LSOO0O 


3. If no input statements received, print CARDEOF 
default message DLZ416I. 





2-304 Licensed Material - Property of IBM 


Figure 2-40. Field Level Sensitivity Copy 
INPUT 
PSTUSER 


A (User Segment) 


PSBIOAWK 
A (Output I/O Area) 


PSDB 





From Figure 
2-8.1 Step 8A 


van 


ea) 


DLZCPY10 — Field Level Sensitivity Copy 


Extended Description 





segment(s). 







output I/O area. 











be added. 


1. PSTUSER points to user’s view of 
segment(s). PSBIOAWK points to 
I/O area to contain physical view of 


. LEVUSEOF will be changed from 
offset in user I/O area to offset in 


. Length of segment to be moved 

must be determined. If variable 
length segment, length is in first two 
bytes of segment, otherwise in PSDB. 
If concatenated segment, logical child 
and destination parent lengths must 


Routine 


DLZCPY 10 


PROCESS OUTPUT 


. Get addresses of user segment(s) and 


output I/O area. 


. Calculate segment offset in output I/O LEVUSEOF 


area for this level. 


. If segment at this level is not FLS, move 


as is from user I/O area to output !/O 
area. 


. If segment at this level is FLS and call 


is ISRT, perform insert processing. 


Perform insert 
processing 2-40.1 









. If segment at this level is FLS and call 


is REPL, perform replace processing. 


Perform replace 
processing 2-40.2 





. If another level to process, go to step 2. PSTUSER 


Otherwise, point PSTUSER to output 


1/O area and return. 


Return to 
Caller 


DLZCPY10- 


Label Extended Description Routine Label 






















DLZCPY 10 


LEVLOOP 


LEV000 


NEXTLEV 
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Figure 2-40.1. Field Level Sensitivity Insert 









INPUT From Figure ff" PROCESS gm OUTPUT 
2-40 Step 4 
PSDB 
1. Determine physical length of segment 
SDB Exp ae eee) to be inserted. 


2. Clear segment to binary zeros. 


3. Scan FDB chain and, if segment is a logical 
child, the SEC chain to locate all fields for 
the segment. Move default value to output 
1/O area for each non-key field. 


4. If concatenated segment, scan destination 
parent FDB chain to locate its fields. Move 
default value to output I/O area for each 
non-key field. 


5. Call DLZSEGCV. 


| DLZSEGCV 


Segment convert Routine 
2-40.3 


If conversion error, return status code 









DBPCBSTC 


status code 










to user. 
Return to 
Figure 2-8.1 
Step 9 
6. Return 
To Figure : 
2-40 Step 6 
DLZCPY10 — Field Level Sensitivity Copy DLZCPY10 
Extended Description Routine Label Extended Description Routine Label 













1. If variable length segment, use insert | DLZCPY10 
length in SDB expansjon block. 
Otherwise use length in PSDB. 

If concatenated segment, logical 
child and destination parent lengths 
must be added. 


ISRT100 
ISRT105 
ISRT180 





. Possible status codes are KA, KB, KC, 


SEGCV 
and KD. 
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Figure 2-40.2. Field Level Sensitivity Replace 
INPUT PROCESS 


From Figure 
2-40 Step 5 


Buffer 


old segment 


1. Read segment to be replaced 
DLZDBHOO 
(===) Buffer Handler 
2-15 


and move to output !/O area. 





. If concatenated segment, read 
destination parent segment. 


. } DLZDBHOO 


Buffer Handler 
2-15 


. Call DLZSEGCV. 
(mn) 


Segment convert Routine 
2-40.3 


If conversion error, return status 
code to user. 













4. |f REPLACE=NO option specified, scan 
FSB chain and compare new field 
to old field. If field modified, return 
status code to user. 
5. Return. 
DLZCPY10 — Field Level Sensitivity Copy 
Extended Description Routine Label Extended Description 


| DLZCPY10 |REPL 
3. Possible status codes are KA, KB, KC, 


and KD. 


SEGCV 


4. Status code KE is returned. REPL135 


Licensed Material - Property of IBM 


OUTPUT 


DBPCBSTC 


status code 







Return to 
Figure 2-8.1 
Step 9 


To Figure 
2-40 Step 6 





DLZCPY10 


Routine Label 
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Figure 2-40.3. Field Level Sensitivity Segment Convert 





INPUT From Caller mm PROCESS OUTPUT 
See note. 
FER 1. The SDB is used to locate the SDB 
[ expansion block and the first FSB. 
SDB 
FSB 2. If SSA call, compare SSA field name to 
FSB field name. If no match, go to 
step 7. 
FER 3. Initialize FER fields and set to and 
[ from parameters. 
4. If to and from types different, convert 
field to desired format. | 
5. Move field to destination. 
6. Call user field exit routine, if any. 
= 
If error indicated in FER, return error FERPCSC 
code to caller. error code 
7. If another FSB to process, go to step 2. = 
' Otherwise, return to caller. 
Return to 
Caller 
DLZSEGCV — Field Level Sensitivity Segment Convert DLZSEGCV 
Extended Description | Routine Label Extended Description Routine Label 


Note: DLZSEGCYV is called by 
_ DLZCPY10 and DLZDLROO. 


ods DLZSEGCV 
2. DLZDLROO makes SSA call to 
convert SSA user field to physical 


view. Only this field and its 
subfields will be converted. 


. Possible error codes are A, B,C, 
and D. 
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DLZSEGCV 
FSBLOOP 


FSB010 
CONVERT 
MOVE 


USEREXIT 


NEXTFSB 
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Figure 2-41. Trace Print Utility 


INPUT PROCESS OUTPUT 










From 
DOS/VS 


SYSLST 


SYSIN 1. Open reader, printer, and console log. 


2. Read and validate control statement 
if present. 





3. Close reader. 
4. Acquire storage for input buffers. 


5. Check trace input device type, modify SYSLST 
DTF, and open it. 


| _______ > 6. Read trace input. 


rie RN 7. Format and print trace output. 





8. Close all files and issue any statistical 
or error messages. 


[| Jc] 


SYSLST SYSLOG 





Return to 
DOS/VS 


DLZTPRTO — Trace Print Utility DLZTPRTO 


Extended Description Routine Label Extended Description Routine Label 


. Reads TI statement if present and prints 
card image on SYSLST. If any other 
type statement is present, it is also 
printed, but no further processing of it 
takes place. 


. Storage is acquired for two input buffers. 


. The DLZDVCE macro is used to 
validate the trace input device, and 
modify the tape or disk DTF. 


. The unformatted trace records are read 
from the trace input file until EOF is 
returned. 


. The trace entries are formatted and 
printed one at a time until all entries in 
the record are processed. Control is then 
passed to step 6 for the next record. 
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SECTION 3: PROGRAM ORGANIZATION 


! 
i 
| 


t 


This section contains descriptions of the DL/I modules and their major 


routines. 
| 
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SYSTEM CONTROL MODULES 


DLZRRCOO + BATCH INITIALIZATION 
The responsibilities of this module are to: 
e Establish base register addressability. 


e Read required PARM information from SYSIPT or SYSLOG based on the 
UPSI byte setting. 


e Letermine load address for batch nucleus module (DLZBNUCO). 
e Provide a DL/I message subroutine (ERRORMSG). 


e Branch to region control interface (DLZRRC10). 


Entry Interface ~ DLZRRCOO0 
DLZRRCOO receives control from DOS/VS job control 


Exit Interface 


DLRRCOO passes control through branch to region control interface 
(DLZRRC10). 


Register Contents 


R7 Address of ERRORMSG 
R10 Entry point address of DLZRRC10 


Entry Interface - ERRORMSG 


ERRORMSG receives control through BALR from DL/I modules 


Register Contents 


R1 PST address or parameter list address 
R13 Save area address 

R14 Return address 

R15 Entry point address (DLZERRMS) 


Fxit Interface - Calling Module 


Passes control through branch on register 14 


DLZRRC10 - REGION CONTROL PRIMARY INTERFACE 


This routine receives control from the DL/I initialization routine and 
serves as the primary interface for all DL/I program executions. Its 
responsibilities are: 

e Save input parameters 

e Load katch nucleus module (DLZBNUCO) 


®e Establish SCD and PST addressability 
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e Invoke parameter analysis (DLZRRAO0O) 


e Branch to application program control module (DLZPCC00) 


Entry Interface ~ CLZRRC10 


Receives control through branch from DLZRRCOO 


Register Contents 


R7 Address of ERRORMSG 


R10 Entry point address 


Exit Interface - Parameter Analysis 


Passes control through fall through to DLZRRAOO 


Register Contents: 


R2 Address of SCD 
R9 Address of PST 
R13 Save area address 


DLZRRAOQ - USER PARAMETER ANALYSIS 


This routine checks the positional parameters for valid length and 
contents when first entered. Invalid parameters cause DL/I to issue an 
error message and abnormally end. There is an entry at NXTPORT (just 
before buffers are to be allocated) to check keyword parameters. Errors 
cause DL/I to issue an error message and abnormally end. 
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Layout and Description of PARM Field 
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PARM identifier in columns 1-3. 


DLI = Vata base program to be executed. 
UDR = Data base recovery utility to be 
executed. 

Data base reorganization or logical 
relationship resolution program to be 
executed. 

ULR = HD reorganization reload utility to 
be restarted from checkpoint record, 


ULU 


aaaaaaaa One~- to eight-character name of the 


application program to be executed. 


bkekebbbb Cne- to seven-character name of the program 


ccc 


Specification block (PSB) as specified in 
the PSB generation. 


If PARM is UDR, ULU, or ULR, one- to 
seven-character name of the data base 
description (DBD) as specified in the DBD 
generation. 


Number of data base buffer sub-pools 
required for job execution. 


keyword HDBFR, HSBFR, ASLOG, LOG, and TRACE 
operands 
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Entry Interface 


Receives control fram DLZRRC10 


Entry Reqister Contents 


When entered at DLZRRAOO: 


R2 Pointer to SCD (not used) 
R9 PST address 
R13 Save area address (not used) 


When entered at NXTPORT: 
R6 Pointer to first subpool information table 
R8 SCD address 


Exit Interface 





From DLZRRA0O entry: Passes control by fall through to 
DLZPCCO00 


From NXTPORT entry: Passes control by branch to PRMSRET 


Exit Register Contents: 


3-4 


From DLZRRAOO entry: 


R2 — $§CD address 
R9 PST address 
R13 Save address 
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e From NXTPORT entry: 


R2 SCD address 

R6 Pointer to last subpool information table 
R9 PST address 

R13 Save area address 


DLZPCCOO0 ~ APPLICATION PROGRAM CONTROL 


This routine is used only in the batch regions, It performs some 
functions analogous to those performed by the CICS scheduler in the 
online contrel program. It is responsible for the following functions: 
e Initializing the storage management routine 

e Invoking the application control blocks loader/relocator (DLZPINIT) 
e Invoking the control program initialization routine 

e Loading the application program 

e Initializing the PL/I region (if PL/I) 


e Invoking the application program 


e® Issuing an unload call in behalf of the applicavion program upon 
termination 


e Writing the application program termination record on the DL/I log 
e Closing the DL/I log. 
Data Areas Used 

PST 

SCD 

COIR 

CMB 


SUB 
PSIL 


Entry Interface 
Receives control by fall through from DLZRRAO0O 


Entry Register Contents 
R2 SCD address 


RO PST address 
R13 Save area address 


Exit Interface 
e Passes control through BAL to DLZPINIT (entry point in DLZDBLMO) 
e Passes control through BAL to application program 
e Passes control through BAL to call analyzer (DLZDLA00) 
e Passes control through BAL to data base logger DLZRDBLO) 


e Passes control to DOS/VS supervisor by issuing an SVC 14 normal 
EOQJ supervisor call. 
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Exit Register Contents 
e From exit to DLZPINIT: 


R2 SCD address 
R9 PST address 
R14 Return address 


e From exit to application program: 


R1 Address of PCB address list 
R13 Save area address 

R14 Return address 

R15 Entry point 


e From exit to DLZDLAOO0: 


R1 PST address 

R13 Save area address 

R14 Return address 

R15 Entry address of call analyzer 


(obtained from SCD at label SCDDLICT) 


® From exit to DLZRDBLO: 


R1 PST address 

R13 Save area address 

R14 Return address 

R15 Entry point of log write-only routine 


(obtained from SCD at label SCDREENT) or, 
Entry point of force write routine 
(obtained from SCD at label SCDDBLFW) or, 
Entry point of logger close routine 
(obtained from SCD at label SCDDBLCL) 


DLZDBLMO - APPLICATION CONTROL BLOCKS LOAD AND RELOCATE 


This routine performs the functions of loading and relocating DL/I 
application control blocks. Once the blocks are loaded and offsets 
resolved to actual addresses, the SDBs in the PCBs are connected to the 
appropriate PSDBs in the DMBs. The JCB data sets in the data base are 
connected to the appropriate ACBs in the DMBs, and control is returned 
to the calling routine. 


For "CLI" execution, the PSB name extracted from the PARM card is moved 
to the PSB directory and the PSB is loaded. The address of the PSB 
segment intent list and the PSB are stored in the PSB directory. The 
index work area (if required) is allocated and addresses are resolved. 
Next the intent list is scanned and the DMB directory is constructed 
from it. The DMB directory entries are scanned and the DMBLOADR 
subroutine (see below) is called to load and relocate the DMBs in the 
directory. Upon.completion, the SDBs are connected to their 
corresponding PSDBs, the JCB DSGs are connected to their ee and 
return is made to the caller. 


For the following utilities there is no PSB name in the parameter 
information: 


DLZURPRO - Data pase prereorganization 
DLZURGSO ~ Data base scan | 
DLZURGPO ~ Data base prefix update 
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These utilities perform dynamic block loading using the DLZBLKLD macro. 


The DMBLOADR subroutine performs the loading and relocation of DMBs. 
The DMB directory iS accessed and the DMB name extracted from it. A 
load is issued for the DMB and, if HDAM, the randomizing module 
extracted from the DMB is loaded. Next, the DMB directory entry is 
updated with a buffer size indication. For HD, this value is the 
control interval size of the data set; for HISAM, it is the logical 
record size. Then all offsets are relocated to addresses, and control 
is passed to DLZCPIOO. | 


Entry Register Contents: 


R2 SCD address 

RI PST address 

R13 Address of one of a set of prechained save areas 
R14 Return address 


Exit Register Contents 


Same as entry register contents 


DLZCPIOO - BATCH CONTROL PROGRAM INITIALIZATION 


This routine receives control from the application control blocks load 
and relocate routine and completes the intialization of the DL/I batch 
system. It is responsible for: 


e Allocation of the buffer pool 
e Formatting the buffer pool prefix, one or more subpool prefixes, and. 
the buffer prefixes 

Loading all required DL/I action modules 

Initializing the SCD 

Opening the DL/I log 

Writing the application program scheduling record on the DL/I log 


Entry Interface ~ DLZCPIOO 
Receives control by fall through from routine DLZDBLMO. 


Entry Register Contents: 


R2 SCD address 
R9 pst address 
R13 Save area address 


Fxit Interface 
Returns to DLZPCCcO00 


Exit Register Contents 
RI PST address 


R2- SCD address 
R14 Return address 


Licensed Material + Property of IBM 3-7 


DLZLI000 ~ LANGUAGE INTERFACE 


The language interface provides communication between the application 
program and the program request handler. A copy of this module is link 
edited with user application programs. 

The language interface has responsibility for: 

e Storing the user's registers in the save area provided. 


e Providing a specific entry for Assembler, COBOL, RPG II, and PI/I 
application programs. ) 


e Locating’ the entry point of the program request handler. 


e Passing control to the program request handler 


Entry Interface - DLZL1I000 


Receives control through branch from application program 


Entry Register Contents: 


R1 Call parameter list of implicit or explicit format 
R13 Save area address 

R14 Return address 

R15 Entry point 


Exit Interface 


Passes control to program request handler through branch from DLZL1000 


Exit Register Contents: 


RO Language identifier code 

R1 Parameter list 

R2-14 As entered from application program 
R15 Entry point of program request handler 


DLZPRHBO - FRCGRAM REQUEST HANDLER 


The interface between the application program and the DL/I batch or 
control program is managed by the program request handler routine 
(DLZPRHBO) in module DLZBNUCO. It accepts parameters passed to it by 
the language interface module (DLZLI000), validates them, and passes a 
parameter list to the call analyzer. 


The program request handler accepts three call list formats: implicit 
Girect, explicit direct, and explicit indirect. COBOL and Assembler-. 
language programs may use either the implicit direct or explicit direct 
call list formats. Since special provisions are made for PL/I in 
handling the explicit indirect call list, it may be used only by PL/I 
language programs. 


The first parameter (argument 0) of the DL/I CALL determines whether the 


list is explicit or implicit. If the argument contains the address of 
the parameter count (count of the number of arguments that follow), this 
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list is an explicit list. If the argument contains the address of the 
DL/I CALL function, this list is an implicit list. 


The responsibilities of this routine are to: 


e Verify parameter list addresses aligned and within the dynamic area 
of the machine 


e Reformat explicit parameter lists to implicit prior to submission 
e Reset PL/I STXIT PC processing 

e Provide caller's parameter list to the call analyzer 

e Return data to application program work areas 

e Maintain PL/I variable-length character string dope vector 

e Identify abnormal termination condition 

e Return directly to application program 


e Write checkpoint message if checkpoint issued 


Data Areas Used 
PPST 


PST 
SCD 


Entry Interface 


Receives control through branch from language interface (DLZLI000) 


Entry Register Contents 


RO Language indicator (zero if COBOL or Assembler; nonzero if 
PL/I) 

R1 Parameter list address (in application program format) 

R13 Save area address 

R14 Return (to application program) 

R15 Entry point address 


Exit Interfaces 
e Passes control through branch to call analyzer (DLZDLA00) 
ie Passes control through branch to error message writer (ERRORMSG) 
e Passes control through branch to abend processor (DLZABEND) 
e Passes control through branch to application program 


Exit Register Contents 
e From exit to DLZDLAOO: 


R1 PST address 
R13 Save area address 
R14 Return address 
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R15 Entry point of call analyzer (obtained from SCD) 
at label SCDDLICT) 


® From exit to ERRORMSG: 


R1 PST address 

R13 Save area address (PSTSV1) 

R14 Return address 

R15 Entry point of error message writer 


(obtained from SCD at label SCDERRMS) 


e From exit to DLZABEND: 


R15 entry point to DLZABEND 
e From exit to application program: 
R2 - : 
R12 Restored to contents upon entry from application 
program to language interface module (DLZLI000) 
R14 Application program return address 


DLZABEND - STXIT ABEND 


Abnormal terminations invoked through the DOS/VS STXIT or terminations 

requested by DL/I action modules are handled by DLZABEND. 

Responsibilities are as follows: 

e Close the CL/I log. 

e Issue an UNLD call to write the last records for Simple HSAM, HSAM, 
Simple HISAM and HISAM or write all buffers altered by the user. The 
UNLD call also closes the data base. 


e If a dump is requested, write a formatted dump of DL/I control 
bliocks. 


e Cancel the partition. 


Entry Interfaces 


e Receives control through DOS/VS STXIT PC interface or STXIT AB 
interface 


e Recevies control through branch from program request handler © 
(DLZPRHEO) 


e Receives control eWeough branch from DL/I action noauies (including a 
special entry from the buffer handler). 


Exit Interfaces 





e Passes control through branch to data base logger (DLZRDBLO) 
e Passes control through branch to call analyzer (DLZDLA00) © | 
e Passes control through SVC 6 (CANCEL) or SVC 2 (S$BJDUMP) to DOS/VS 


Exit Register Contents 
e From exit to DLZRDBLO: 
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R1 PST address 


R13 Save area address (PSTSV1) 
R14 Return address 
R15 Entry point of logger force write routine (obtained from 


SCD at label SCCDBLEW) or, 
Entry point of logger close routine (obtained from SCD at 
lakel SCDDBLCL) | 


e From exit to DLZDLAOOs: 


R1 PST address 

R13 Save area address 

R14 Return address 

R15 Entry address of call analyzer (obtained from SCD at 


lakel SCDDLICT) 


DLZIWAIT - DL/I IWAIT 


This module receives control when a DL/I action module requires DOS/VS 
wait linkage. 


Entry Interface 


Receives control through BALR from a DL/I action module 


Entry Register Contents: 


R2 Address of event control block 
R14 Return address of caller 
R15 Entry point of DLZIWAIT 


Exit Interface 
¢ Passes control through SVC 7 (WAIT) to DOS/VS. 


e Passes control through branch on register 14 to the calling program. 
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ONLINE DL/I_ PROCESSOR MODULES 


Refore attempting to use the information concerning DL/I processor 
modules, you should be familiar with the Customer Information Control 
System/Virtual Storage (CICS/VS). References to the prerequisite 
publications are contained in the preface to this manual. 


The online DL/I processor modules DLZOLIOO and DLZODP provide services 
in a CICS/VS-DL/I environment as follows: . 


ae DL/I system initialization 

b. DL/I user task scheduling 

Ca Processing DL/I calls (online program request handler) 
d. DL/I user task completion 

e. DL/I normal system termination 

f. DL/I aknormal system termination 

g» DL/I online message writer 

he DL/I-VSAM-CICS synchronization via VSAM "EXCP' Exit. 


DLZOLIOO ~- CNLINE INITIALIZATION 


In order to process DL/I applications in an online environment, a DL/I 
online nucleus must first he generated. The DL/I online nucleus 
generation procedure is described in DL/I DOS/VS Utilities and Guide for 


the System Programmer. The result of the procedure described in the 
publication is a DL/I online nucleus CSECT. | 


The generated nucleus, which is link-edited into a DOS/VS core image 
library, consists of a system contents directory (SCD), a table of | 
partition specifications takle prefixes (PPST), a PSB directory entry 
for each PSE specified, a remote PSB directory entry for each remote PSB 
specified, and an application control table (ACT). 


The application control table (ACT) is used by DL/I online at CICS 
initialization to verify and load all PSRs and DMBs that can be 
referenced online. The ACT is used during scheduling to determine 
whether an online transaction is to use DL/I. It is also used by DL/I 
default scheduling to acquire a PSB to use with a DL/I application 
program if none was explicitly specified. 


The ACT is produced from parameters specified in the following DLZACT 
macro instructions: 


DLZACT TYPE=INITIAL 
DLZACT TYPE=CONFIG 
DLZACT TYPE=PROGRAM 
DLZACT TYPE=RPSB 
DLZACT TYPE=BUFFER 
DLZACT TYPE=FINAL 


Each ACT pregram entry is generated from the DLZACT TYPE=PROGRAM 
statement. These statements define to DL/I which application programs 
can use DL/I online. They also define which PSB names can be used by 
each of the application programs. There is one ACT program for each 
DLZACT TYPE=PROGRAM statement used to generate the online nucleus. See 
the format of the application control table (ACT) in Figure 3-1. 
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r--L_ A TB 
4 8 2 bytes 
A. Buffer pool information address or 0 
B. Storage layout control table name or 0 
C. Number of HD DBDs in HDBFR operand 


Program entry ‘1’ 


ee ee (2 oe oe 
8 1! 2 2 2 bytes 


D. ACTNM ~~ ACT program entry name 
E. ACTIND ~ Entry indicator byte: 


X‘80' Program is a DL/1 program 
X'40’ Program name not in CICS PPT 
X‘20’ ABEND option bit 

X’02’ Program is deferred-scheduled 


F. ACTPCNT Count of PDIR (PSB) pointers for this program 


Generated from: | G. ACTPPTR PDIR pointer(s). ACTPCNT indicates how many pointers 
DLZACT TYPE=PROGRAM are included here before the start of the next ACT entry. 


Program entry ‘n’ 


SSS ee 


A maximum of 4095 DLZACT TYPE=PROGRAM statements anda. 
maximum of 4095 unique entries (an entry consisting of program name 
and one PSBNAME) may occur in one ACT generation. 


4 bytes 


H. Delimiter (FF FF FF FF) indicating end of program entries 


Y HDBFR entry spe ake 
L ee ee hi 7 sean Seacaeal B2 Fe 


1. Length of entry 

J. DBD name 

K. Number of buffers 
HDBFR entry (subpool ‘n’) 


HSBFR entry (DBD #1) 


Generated from: a ee ee 


DLZACT TYPE=BUFFER 2 8 2 2 2 bytes 
| FF 00 | 

. DBD name 

Number of index buffers 

Number of KSDS buffers 

Number of ESDS buffers 


HSBFR entry (DBD #n) 


4 bytes 


Q. Delimiter (FF FF FF FF) 


oe a el 


Figure 3-1. Application Control Table (ACT) Format 
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DL/I initialization is performed during CICS/VS initialization just 
after loading the CICS/VS nucleus. The DL/I online nucleus module has 
been loaded by CICS/VS in the same manner as a CICS/VS nucleus module, 
and its address is placed in the CICS/VS CSA optional features list. 


Nucleus and Table Initialization 


DL/I verifies the presence of the online nucleus by checking the CICS/VS 
optional features list DL/I entry for a non-zero value. Once verified, 
the program request handler entry point is moved to the DOS/VS COMREG 
uSing the MVCOM macro. Next, the application control table (ACT) is 
located and an indicator is set in each corresponding PPT entry for all 
application programs which will use DL/I. Each PSB name in the ACT is 
eight characters in length. 


Next the PSE segment intent list is built. This is accomplished by 
loading each PSB defined in the ACT, except those defined as remote 
PSBs, in ascending address space in the low end of the partition and 
moving the intent list, which is appended to the front of the PSB, to an 
entry in the PSB segment intent list table. The length of the PSB plus 
the length of the index work area, if required, are used to calculate 
how much storage to reserve. The segment intent list is overlaid during 
this process because its information is redundant. The PSB directory 
entry for each PSB is initialized with the address of the intent list, 
the PSB"s storage address, and the amount of storage required. 


The DMB directory is constructed. One DMB directory entry is created 
for each unique data base (DMB) defined in the PSB intent list entries. 
DMB names are eight characters in length and consist of the DBD 
generation name extended to seven characters by at-signs (@) if 
necessary. The eighth character is D. At this time, a validity check 
is performed to ensure that all required DMBs, defined by the PSB intent 
list, have keen defined in the CICS/VS file control table (FCT). If any 
are missing, a message is written on the system console and the operator 
is given the option to continue or cancel. If initialization is to 
continue, PSBS which require the omitted DMB(s) are flagged to indicate 
this condition. Application programs which use these PSBs are not 
scheduled. 


Initialization continues with the loading of all DMBs specified in the 
DMB directory. As each DMB is loaded, the corresponding entry in the 
DMB directory is initialized. A test is then made for HDAM and the 
Gefined randomizing routine is loaded. As the DMBs are loaded, they are 
initialized. After all DMBs have been loaded and initialized, the size 
of the buffer pool is determined. The size of the pool is based on a 
user-supplied parameter which defines the number of subpools, the 
control interval size of each VSAM data set, and the HDBFR subparameter, 
which tells how many buffers will be in a subpool. 


After the pcol size is determined, the required address space is 
reserved. Then the buffer pool prefix in the online nucleus is 
initialized. Next the subpool prefixes are created and initialized. 
There are 2-32 prefixes for each subpool. | 


Load Action Modules 
Upon completion of initialization of the buffer pool and prefixes, the 


DL/I action modules are loaded. As the modules are loaded, their 
corresponding entry points are moved to the SCD. The modules are loaded 
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in the following standard sequence if not otherwise specified by a 
storage layout control table: 


DLZDBHOO - Buffer handler 


CLZDLROO = Retrieve 

DLZDLAOO - Call analyzer 

DLZRDBLO - Data base logger 

DLZDLDOO - Delete/Replace 

DLZCDLEO - Load/Insert 

CLZDHDSO - Space management 

CDLZDXMTO - Index maintenance 

DLZDLOCO - Open/Close 

CDLZQUEFO - Program Jsolation ENQ/DEQ module 
DLZQUEFW - Program Isolation ENQ/DEQ work area 


Initialize PSBs 


Upon completion of the loading of the action modules, initialization 
moves the specified PSBs using information stored in the PSB directory 
entries. After each PSB is moved, it iS initialized and its 
corresponding PSB directory entry filled in. 


Attach Logger 


If data base logging has been specified by the user, the logger I/0 
module is initialized and attached. If the log module fails to attach, 
the data base log is closed and no logging takes place. 


Open Lata Bases 


The final step of initialization is the opening of the data bases. The 
DMB directory is scanned for DMB’s that failed during initialization and 
the open initial attribute is reset for any found. Next the data bases 
are Opened via an ‘open all‘ call to the DL/I Open/Close module. All 
modules indicating Open initial in the DDIR are opened by Open/Close at 
this time. | | 


Upon completion of the open processing, the IWAIT routine address is 
restored and control is returned to CICS initialization. 


DLZODP ~ DL/I TASK SCHEDULING 


DL/I task scheduling is initiated when a task receives control ona 
Transfer Control (XCTL). The CICS/VS Program Control Program (PCP) 
examines the DL/I user bit in the CICS/VS PPT entry. If the bit is set 
and the task is not already scheduled, CICS/VS branches to DL/I : 3 
prescheduling routine, DLZODP00. An indicator is set in the CICS/VS. 
task control area (TCA) and control is returned to the CICS/VS PCP. 


DL/I task scheduling is also comprised of the following subroutines: 


PST initialization 
PSB intent scheduling 
PSB initialization 
Scheduling 


The caller provides the name of the PSB to be scheduled or optionally if 
the caller omits the PSB name in the call list, the first PSB name 
encountered in this program"s ACT entry is provided as default. This 
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subroutine determines whether DL/I can support another task and creates 
an entry in the PST prerss area for this task. 


The SCD maximum task indicator is tested. If it is on, the task cannot 
be scheduled, the SCD suspended task counter is incremented by one, and 
an indicator is turned on in the SCD. A CICS/VS SUSPEND macro is issued 
to suspend this task. 


If the SCD maximum task indicator is off, an available PST prefix entry 
is located and initialized for this task. The DL/I task accumulator is 
incremented by one and a test iS made to determine whether the number of 
DL/I tasks now equals the maximum allowed. If yes, the SCD maximum task 
indicator is set. Next the SCD current maximum task indicator is 
tested. If on, the task cannot be scheduled immediately, and the 
subroutine issues a CICS/VS SUSPEND macro to suspend the task. The SCD 
current maximum task indicator is set if the scheduling of the task 
causes the current maximum task value to be reached. Control is passed 
to the PST initialization subroutine if the PSB resides on the same 
system. If a remote PSB is to ke scheduled, control is passed to the 
remote acheousend: Subroutine which transfers the request to the remote 
system. 


PST Initialization 


PST storage is acquired from CICS/VS Storage Management and the storage 
address is saved in the assigned PST prefix. PST initialization 
consists of formatting the save area chains and storing the address of 
the assigned PST prefix. Control is passed to the PSB intent scheduling 
subroutine. 


PSB Intent Scheduling 


This subroutine determines the segment intent of the PSB being scheduled 
and ensures that no more than one task is scheduled to update the same 
segment type(s) in the same data base unless program isolation is 
active. For retrieve sensitive only PSBs or update sensitive PSBs with 
program isolation active, a duplicate PSB is created if a prior task was 
scheduled with the same PSB. If the task cannot be scheduled, a CICS/VS 
SUSPEND is issued to suspend the task. If not in use, but retrieve 
sensitive only, the in-use indicator is set and control is passed to PSB 
initialization. If neither of the above is true, the PSB segment intent 
list entry must be scanned. If program isolation is not active and the 
PSB is not retrieve only sensitive, the PSB segment intent list entry 
must be scanned. 


The segment intent list for this PSB is located from the PSB directory 
entry. This list defines all segments in the data base(s) used by this 
PSB and also defines the PSB"’s sensitivity to them. The segment intent 
list entry is compared to the segment intent list entries of all 
scheduled PSBs. If no intent conflict is detected, the PSB 
initialization subroutine is called. Otherwise a CICS/VS SUSPEND is 
issued for the task. Upon completion of a successful segment intent 
scan, the PSB initialization subroutine is called. 


If it is necessary to provide duplicate copy(s) of PSBs, this routine 
acquires storage for the copy and moves the original copy to it. 
Addresses in the duplicate are adjusted correspondingly and a duplicate 
PSB directory entry is created. The level table(s) are then reset and 
control passed to the PSB initialization subroutine. 
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PSB Initialization 


PSB initialization consists of inserting the SDBs in the PSB into the 
SDB chain. The PSB is located from its PSB directory entry, and the 
address of the PCB address list is stored in the CICS TCA. Each PCB is 
located and the JCB pointer is used to obtain the address of the start 
of the SDBs for that PCB (JCBSDB1). Each JCB is accessed and the SDB 
chain pointers in the SDB and the PSDB in the DMB are updated. This 
process continues for all SDBs defined in the PSB. 


The address of the assigned PST is obtained from the PST prefix and 
stored in the PSB. Using this address, the PSB directory entry address 
is stored in the PST. The “DL/I is scheduled" indicator in the PST 
prefix is set. If the PSB indicates the user is update sensitive, a 
call is made to the DL/I data base logger module (DLZRDBLO) to write an 
application program scheduling record (X'08'). Control is then returned 
to the calling routine. 


Scheduling 


A DL/I call initiates scheduling. The function code is 'PCB‘ and the 
call contains the name of the PSB to be executed. The call is passed to 
the online program request handler via the language interface module and 
a scheduling validity check is made. If the call is valid, the 
parameter list is checked for a User Interface Block (UIB) pointer 
parameter. If specified, a UIB will be used instead of the CICS/VS TCA 
for returning return code and PCB address list information to the 
application program. Next, the task scheduling subroutine is called to 
schedule the PSB. Upon completion, control is returned to the 
application program through the program request handler and the language 
interface. If the call is invalid, a two byte error return code is 
stored in the UIB or CICS/VS TCA and control is returned directly to the 
application program. 


If the "PCB" call is made to schedule the system interface, the password 
is tested against the user generated one in the nucleus and the 
interface is tested for availability. A PST and dummy DSG are acquired 
for the caller, the task is marked as a system task, and control is 
returned to the user. 


DLZPRHOO - ONLINE PROGRAM REQUEST HANDLER 


DL/I online calls are made in the same format as batch calls except that 
CALLDLI is used instead Of CALL for Assembler language. The user issues 
a call instruction, passing parameters in the call list, and provides a 
register save area address in register 13. Communication of the results 
of the call is also identical to the batch system. It should be noted 
that although the format of the call instruction for online is the same 
aS in batch, storage used by DL/I to process the call (i.e., register 
Save area, all data items in the call list, I/O area) must be acquired 
from CICS/VS dynamic storage due to the re-enterability a of 
application programs which run under CICS/VS. 


Language Interface Module 


Although the language interface is not part of module DLZODP, it is 
involved in call processing. The language interface module is link- 
edited to each application program via the call instruction. The module 
has two entry points; one for Assembler, COBOL, and RPG II; and the 
other for PL/I, The first function performed at either entry point is 
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to save the user's registers. Then a language indicator is set, the 
entry point to the program request handler is acquired from the DOS/VS 
COMREG, and a branch is taken to the program request handler. 


Program Reguest Handler 


This routine is responsible for communication to and from the DL/I 
action modules and the user. It establishes the necessary table 
addressakility for the action modules, and formats and validity checks 
the call list. It also moves the requested data to the user's I/O area 
and returns control to the application program. 


Upon entry, if it is a scheduling call, the scheduling subroutine is 
entered. If not, addressakility to the PST is established and the 
language indicator is set in the LIPARMS section of the PST. Next the 
user's call list is inspected to determine whether it is in the proper 
format. If not, the list is converted to the implicit direct format in 
an area provided in the PST. The address of the list is stored in-the 
PST. Then the call list is checked to ensure that all addresses are 
valid. If valid, and if the PSR is on the same system, the call is 
passed to the call analyzer. Otherwise, if the PSB is on a remote 
system, control is passed to the remote data base call subroutine which 
transfers the call to the remote system. If the call is invalid, a 
return code is inserted in the UIB or TCA and control is returned to the 
user. 


The DL/I action modules process the call and return control to the 
program request handler through the call analyzer. A test is made to 
determine whether a pseudo-ABEND condition exists. If it does, a 
CICS/VS task ABEND macro is issued with an ABEND code indicating the 
reason. If an ABEND is not required, a test is made to determine 
whether the call requires data to be moved back to the user. The data 
is moved to the user's I/O area if required. The user's registers saved 
by the language interface are restored and control passed back to the 
calling application progran. 


Processing of the system calls "CMXT', ‘STRT', ‘STOP', ‘TSTR*, and | 
"TSTP* is accomplished in the program request handler code. If these 
€unctions are identified in the call list a direct branch is taken to 
the appropriate routine. 

IWAIT Routine 

The IWAIT routine is entered from the DL/I buffer handler (DLZDBHOO) or 
from other modules whenever an I/O wait or resource enqueue wait must be 
issued. The following processing occurs: 


e Registers 14 through 12 and 13 are saved. 


e Registers 12 and 13 are initialized with the CICS/VS CSA and 
currently dispatched TCA. 


e A CICS/VS WAIT to CICS/VS Task Control Management is issued. 
e Upon return, registers 14 through 12 and 13 are restored. 


e Return is to the calling module via register 14. 


= 
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DLZODP01 - TASK TERMINATION 


DL/I task termination is entered by the CICS/VS PCP when a user's task 
scheduled by DL/I returns through CICS/VS Program Management, issues a 
CICS/VS sync point, Or when the application program issues a DL/I ‘TERM’ 
call. This routine is responsible for purging any buffers altered by 
this task, calling the data base logger to write the application program 
termination record (X'07"), releasing any system resources owned by this 
task, and resuming tasks which were marked as not scheduled. 


Task Termination 


Task termination first determines whether this task was scheduled to use 
a remote PSB. If it was, control is given to the remote termination 
call subroutine. This subroutine issues a CICS/VS sync point call which 
causes DL/I programs processing calls on behalf of the local application 
program to ke terminated. Next, task termination determines whether 
this task was assigned a PST prefix. If not, this task must have been 
stall-purged ky CICS/VS and was originally suspended by the task 
scheduling module. In this case the suspended count accumulator is 
decremented and the task"®s TCA removed from the DL/I suspended task 
chain. Control is then returned to CICS/VS Program Management. If the 
task terminates abnormally, its DL/I control blocks are dumped by DFHDC. 


If this task was assigned a PST prefix, a test is made to ‘determine 
whether the task was scheduled. If not, the task was stall-purged by 
CICS/VS. This means this task was suspended by a CICS/VS Storage 
Management attempt to acquire either PST or PSB storage. If it was due 
to PST storage acquisition, the assigned PST prefix is cleared and put 
back on the free chain and the system resource allocation routine is 
entered. If it was due to PSB storage acquisition, the PSB directory 
entry is cleared, PST storage is freed, and the PST prefix is inserted 
in the free chain. Control is then passed to the system resource 
allocation routine. 


If the task was scheduled and active, normal task termination proceeds. 
First a DL/I internal ‘TERM' call is issued to the call analyzer 
(DLZCDLA00). This call causes the analyzer to reset the level table(s) 
in the PSB. If update sensitive, the buffer handler (DLZDBHOO) is 
called to write out all buffers altered by this task. Next the PSB 
directory entry is tested for update sensitivity. If indicated, the 
data base 1lcgger (DLZRDBLO) is called to write the application program 
termination record (X'07"). If the task had update sensitivity, the PST 
prefixes are scanned and any waiting for sehecursag because of segment 
intent conflict are ‘RESUMED'. 7 


Next the PSB directory entry is released. For update sensitivity PSBs, 
this involves resetting the “user scheduled" indicator. For retrieve | 
only, a test is made to determine whether this was a duplicate PSB. If 
sO, the storage acquired for the PSB is freed and the duplicate PSB 
directory entry is cleared. Control passes to the system resource 
allocation routine. 7 


If the system call interface is active the DDIR entries for the 
terminating PSB are checked for the waiting for close indicator. If the 
indicator is on and the use count of the DMB is now zero, the puetca | 
task is resumed. 


System Resource Allocation 


This routine is responsible for determining whether any tasks are 
waiting to ke scheduled and, if so, for taking the proper action to 
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cause them to be scheduled. First the DL/I suspended task counter is 
tested. If nonzero, the first task on the DL/I suspend chain is located 
and a CICS/VS RESUME macro is issued. The suspend chain is then updated 
by removing the task*s TCA from it, the suspended task counter is 
decremented, and, if zero, the maximum task indicator is reset. Next 
the DL/I task counter is decremented. If the task count is less than 
the current maximum task value, the current maximum task indicator is 
reset and PST prefixes which were "WAITING' due to this condition are 
"POSTED" comrplete. Control is then returned to the CICS/VS PCP. 


DLZODPO2 - DL/I NORMAL SYSTEM TERMINATION 


The following processing occurs prior to CICS/VS termination. 

® DL/I system termination (DLZODP02) is entered from the DL/I linkage 
module DLZSTP00, as specified in the CICS/VS pre-termination 
processing list section of the program list table (PLT). 


e The DL/I 10g DTF is located and a DOS/VS CLOSE is issued for the DL/I 
log. 


e CL/I system termination is re-entered by CICS/VS System Termination 
Progran. 


e A DL/I CLOSE call is issued to the DL/I Open/Close module (DLZDLOCO) 
to close all data sets for all DMBs in the system. 


e Return is made to the CICS/VS via the DL/I linkage module. 


DLZODP03 - DL/I ABNORMAL SYSTEM TERMINATION 


The DL/I abnormal system termination routine is entered from CICS/VS 
when the DL/I partition is to be terminated abnormally. The following 
processing occurs: 


e The DL/I fee DTF is located and a DOS/VS CLOSE is issued for the DL/I 
log. 


e The DL/I control blocks are dumped. 


e Return is made to the calling CICS/VS program. 


CLZERMSG - DL/I ONLINE MESSAGE WRITER © 


The following processing occurs: 


e The DL/I error code is extracted from the active PST or from a 
parameter list pointed to by register 1. 

e CICS/VS storage is acquired. 

e the appropriate DL/I message is created and logged to the destination 
CSMT via CICS/VS Transient Data Management and to the operator's 
console. 

e Return is made to the calling routine. 


3-20 Licensed Material - Property of IBM 


If CICS/VS storage cannot ke acquired or an error occurs while writing 
to transient data, an indicator is placed in the TCA and return is made 
to the calling routine. 


DLZOVSEX = VSAM EXCP EXIT PROCESSOR 


The EXCP exit processor receives control directly from VSAM after each 
svc 0 resulting from a GET or PUT call from the buffer handler. DL/I 
checks the ECE for completion of the I/O request. If the request is 
incomplete the CICS/VS environment is re-established and a CICS/VS task 
control wait is issued in behalf of the current task. If the ECB was 
previously posted or the event completion has caused the task to be 
removed from the wait condition, control is returned directly to VSAM 
via register 14. 
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DL/I FACILITY MODULES 





DLZCLAOO ~ CALL ANALYZER 


The call analyzer module is used for initiation of all data base calls. 
Under normal circumstances, it receives control from the DL/I online 
program request handler (DLZPRH00) in the CICS-DL/I region or from the 
batch application program request handler (DLZPRHBO). It receives 
control from application program control (DLZPCC00) at termination of a 
DL/I katch partition or online task termination (DLZODP01) in a CICS- 
DL/I region. 


For internal DL/I calls to update an index data base, this module 
(DLZCLAOO ) receives control from the index maintenance module 
(DLZDXMTO). 


The call types handled by the call analyzer module can be divided into 
two groups: (1) normal data base calls, and (2) special control calls, 
which are sometimes referred to as ‘pseudo' calls. The special calls 
are GSCD, get SCD address; TERM, write all buffers altered by that user; 
and UNLD, write last records for simple HSAM, HSAM, simple HISAM, and | 
HISAM load or write all HDAM and HIDAM data Lase buffers altered by that 
user and close all data sets in the system. 


The primary responsibilities of the call analyzer are: 


e Test the first parameter in the call list for a valid four-character 
function and encode this into a one-byte function code. 


e Test the second parameter in the call list for a valid PCB address 
and store the PCE address in the PST. 


e Store the third parameter in the call list in the PST. This is the 
user's I/O area address. 


e Verify the format of all segment search arguments (SSAsS) in the call 
list and fill in the corresponding level table entry for the SSA in 
the call. 


e po required checking based on call type and SSAs. 


e Test for field level sensitivity when processing SSAs and set on bit 
if present. Call DLZCPY10 to map user's view to physical view if 
necessary. | | 


e Do sequence checking when loading a data kase. 
e Pass control to the proper action module to process the call. 


If a data base call requires the VSAM control blocks or SAM DTF 
representing the files within a data base to be opened, the analyzer 
calls upon the DL/I open/close module (DLZDLOCO) to perform the data 
management open for all files which may be needed for that PCB. The 
DL/I open/close module is called when the UNLD call is received to close 
all DL/I data bases opened in the batch partition. 


During normal processing of the SSA, when an SDB has been located for 
the segment, a test of the SDB will be made to determine if field level 
sensitivity has been specified (bit SDBFSB set on in field SDBXFL). If 
it has, an indicator will ke set in the JCB, signifying that at least 
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one segment has field level sensitivity (bit JCBFLS set on in field 
JCBLVT). 


When processing a qualified SSA, a check is made to determine if field 
level sensitivity has been specified for the segment. If it has, the 
FSB chain is scanned to see if the field name exists. If the field name 
does not exist or if the FSB is not flagged as an allowable field, a 
return code of ‘AK' (invalid field name in call) is stored in the PCB 
and return is made to the caller. 


If the field name is found and it is an allowable field, then 
qualification is set in the level table Lased on information in the FSB 
(qualification on data or key). 


When the Call Analyzer determines that at least one segment has field 
level sensitivity, it will no longer do the processing to determine the 
offset of the segment in the user's I/O area (entry in LEVUSEOF will not 
be initialized by the Call Analyzer). 


Prior to calling the insert, replace, or retrieve (only if called on 
behalf of insert) action modules, if the field level sensitivity 
indicator has been set in the JCB, the Call Analyzer will exit to 
DLZCPY10 to map the user‘s view to the physical view. At this point,the 
field level sensitivity indicator in the JCB will be reset. Any error 
passkack from DLZCPY10 will be detected and exit will be taken to the 
Program Request Handler. 


The field level sensitivity indicator will also be reset if an error is 
detected while processing the SSAs. 


Control Blocks - DLZDLAOO 


PST 
PDIR 
PSB 
DDIR 
DME 
PCE 
JCB 
Level tabie 
SCB 
FDR 
FSB 


Register Contents 


Ri = PST address 

R1i3 = Save area address 
Ri4 = #£=Return address 
R15 = 


Entry point address 


Interfaces ~ CPLZDLA00 
Receives control from DLZPCC00, DLZODP00, and DLZPRHBO. 
Passes control to DLZDLROO, DLZDLDOO, DLZDDLEO (DL/I action modules): 


These modules need not save the analyzer's registers. They can return 
to the analyzers entry point plus an offset stored in the SCD. 


Call to DLZDLOCO - DL/I open/close: 
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PSTFNCIN has open function 
PSTDBPCB has address of the PCB 


Call to DLZDBHOO - buffer handler: 
PSTFNCTIN is PSTPGUSR (X‘'07") 


Call to CLZCPY10 «= field level sensitivity copy 


DLZDLOCO - CPEN/CLOSE MODULE 


The function of module DLZDLOCO is to open and close the DL/I data bases 
in either the CICS online control region or the batch partition. DOS/VS 
open/close macros are used to open and close data sets. DLZDLOCO 
opens/closes VSAM ACBs for all data base organizations besides HSAM and 
Simple HSAM, where DTFs are used. For simplicity the term ACB is used 
in the following description where ACB or DTF would be correct. For a 
HISAM data base with all functions, except for PSTOCDCB, both the KSDS 
and ESDS are opened/closed. 


The PSTFNCIN cyte in the PST determines the type of operation to be 
performed by DLZDLOCO. 


e PSTOCDCE (X'10") ~ Only one ACB is opened/closed. It is located by 
DSG address (PSTDSGA). 


e PSTOCPCB (X°02") + For PROCOPT = L or LS one data base is opened. 
For PRCCCPT + L or LS: 
All SDBs of that PCB are scanned and all referenced data bases are 
opened, that is, index data bases and logically related data bases 
are opened/closed with this call. 

e PSTOCDSG (X"40") - One or two (HISAM) data bases are opened/closed. 
The ACB is located by DSG address (PSTDSGA). 

¢ PSTOCALL (X"04") 
= For open: 


All ACEs specified for initial opening are opened (CICS online 
control region only) 


~ For close: 


All ACES in the system are closed. 


_@ PSTOCDMB (X*01*%) + The ACBs of One DMB are Opened/closed. The DMB 


directory address is passed in register 2. 


DLZDLOCO compares the following values specified in DBD generation with 
the VSAM catalog entries for a data base: 


e Control interval size 
e Key length (KSDS) 


e Relative key position (KSDS) 
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e Highest RBA used in the data base based on the PROCOPT. For example, 
PROCOFT=L requires an empty data base (high RBA=0), while a data base 
must contain data if PROCOPT#L (high RBA>O). 


For HISAM, HIDAM, and HDAM data bases, the first control interval of the 
VSAM ESDS iS reserved for the DL/I control record. DLZDLOCO maintains 
this record. 


e If PRCCOFT=L or LS, space is acquired for one control interval and 
the DL/I control record is constructed. The buffer handler 
(DLZDBH00) is called to write the DL/I control record. 


An Open record, code xX'2F", is written to the log file whenever a data 
base is opened. If the Open call is successful, bit zero (JCBOPEN) of 
the JCBORGN byte equals one (PCB call); and bit zero (PSTOCBAD) of the 
PSTFNCTN kyte equals zero. 


All PSDBs of a DMB are scanned for variable length segments with the 
edit/compression routine. All edit/compression routines that have 
"INIT' specified are called after “open™ and before "close" 


Register Contents 
Ri - PST address 


R2 - CDIR address if it is a close DMB call 
R13 - Save area address 

R14 = Return address 

R15 - Entry point address 


Control Blocks + DLZDLOCO 





e PCL/I control record - DLZRECO 


e PSTFNCTN field of the PST: 


td 
we 
ct 


Value Meaning 


Process DSG 

Open for load 
Process specific ACB 
Close call 

Cpen call 

Open/close all DMBs 
Cpen/close a PCB 
Open/close a DMB 


WAM fSWNHF | 
PRR ROR Pp, 


DLZDLDOQ - DELETE/REPLACE 


This module performs the logical actions involved in replacing or 
deleting segments in a DL/I data base for all Cr GansTabICne meas dae HSAM 
(which has no delete or replace). 


The replace function checks to ensure that the key field of the segment 
was not inadvertently altered and that the replace rules were not 
violated. If the segment to be replaced is indexed, this module 
interfaces with the DL/I index maintenance module (DLZDXMTO). 
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The first check made upon entry is a key check of the contents of the 
PCB key feedback area to the key of the segment in the user's I/O area. 
If there are any changes, a "DA' status code results. Next the segment 
is retrieved and the sequence fields are checked for any changes. If 
any changes occurred, a "DA' status code again results. Then the 
remainder of the data is checked for changes. If there were no changes, 
a blank status code is returned. If there were changes, the data is 
replaced. _ 


If the segment to be replaced is in an HDAM or HIDAM data base and the 
segment is variable length, the segment and its prefix may be separated. 
The separation of data is determined by the min-byte value of DBDGEN and 
the current size of the segment. Also in this regard, if the segment 
waS previously separated from its prefix prior to a replace call, the 
replace will attempt to rejoin data and prefix. 


The delete function for a HISAM data base reads the segment to be 
deleted. If the organization is simple HISAM, the buffer handler is 
called to issue a VSAM ERASE. Otherwise, the segment is deleted by 
setting the HISAM segment delete bit. In addition, if this is the root 
segment, the record delete Eit is also set. 


The delete function for HDAM or HIDAM data bases includes a check to | 
ensure that delete rules stated for the DMB will not be violated. If 
logically related segments with a physical delete rule exist in the data 
base within the physical hierarchy starting with the segment to be 
deleted, a scan is made of all the segments to ensure that they include 
no segment which has not been logically deleted. 


A scan of the data base from the point of deletion is performed. During 

this scan, each segment is accessed twice: once on the way ‘down', and | 
again on the way "up". While scanning ‘down', any segment in a logical 
relationship is inspected to determine its eligibility for deletion and 

to terminate as many logical relationships as possible. In some cases 

(for example, the last logical child for a logical parent which has 

already been deleted through its physical path), the deletion of all, or 

a portion of, the logically related data base record is required. In 

this case, the delete action is expanded to perform the total delete 

function (except for the checking) for the new data base record. Then 

the scan of the original data base record is continued at the point of 

exit. 7 : 


When scanning ‘up", an interface with index maintenance (DLZDXMTO) is 
made if the segment is indexed. Physical pointers are adjusted to 
bypass any removable segments (HDAM or HIDAM segments which are no 
longer required) whose space is released by interfacing with the space 
Management module, DLZDHDSO. For nonremovable segments (segments 
required to remain because of existing logical relationships), a logical 
delete bit is set to indicate the status of the segment. 


A work area is obtained from the DL/I buffer pool to maintain the 
concatenated key and position of segments in the data base record(s) 
being scanned during delete or for calls to index maintenance during 
replace. 


Delete/Replace Work Space Acquisition and the Work Space Prefix 


DLZDLCOO acquires space to build work area(s) from DLZDBHOO (buffer 
handler) via a PSTGBSPC call. The calculated minimum size required is 


indicated in PSTBYTNM. If the space is available, the buffer handler A 
returns the address of the selected buffer in PSTDATA and its size in \ 
PSTWRK1. | 
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The first section of the work space contains a prefix whose format and 
contents are described in Section 5. Immediately following is the work 
area containing information concerning the segment to be deleted (or the 
index source segment to be replaced), its physical data base (HIDAM or 
HDAM), and other segments in that data base record. 


If a second work area is needed because of logically related segments 
and the space remaining in the current work space is large enough, the 
next work area will be allocated in the same work space (buffer) 
immediately following the previous work area. Forward and backward 
chains are maintained. If the remaining space is not large enough, 
another buffer is obtained from the buffer handler and chained to and 
from the previous work space. 


Except in the case of an error condition, work areas are freed in the 
reverse order in which they were allocated. When the work area freed 
was the first one in the work space, the buffer is freed via a ROLEESEC 
call to the buffer handler. 


Segment Delete Codes 


Segment delete codes utilized in the second byte of the prefix of each 
CL/I segment: 


1... «ee. This segwent has been deleted (HISAM only). 

el... eaee This data base record has been deleted (HISAM only). 

eel. e222 This segment has been processed by delete. 

eoel eae. ThiS variable-length segment has its data separated 

| from the prefix. 

eeee Xooo Reserved. 

ewes ele. This segment is no longer required by its physical parent. 

wene eols This segment is no longer required by its logical parent. 

coos eool This segment has been removed from its logical twin chain. 

1111 1111 This segment contains the separated data of a variable- 
length segment. 


Interfaces - DLZDLDOO 


This module interfaces with the following modules: 


CDLZDEHOO 
DLZDHDSO 
CLZRDELO 
DLZDXMTO 
DLZQUEFO 





Control Blocks - DLZDLDOO 


e Delete workspace prefix 


e Delete work area. 


Register Contents at Entry 
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R1 Contains the address of the PST 

R13 Points to the current save area 

R14 Contains the DL/I analyze call function 
module (DFSDLA0N0O) return point 

R15 Contains the module entry point 


Register Contents at Exit 


 R1 Contains the PST address 
R13 Points to the current save area 
R14 Contains the DL/I analyze call function 
“module (DFSDLA00O) return point 
R15 Contains a return code (0) 


Register Contents on ABEND - in the SCD ABEND Save Area 


PST address 

R2 - SCD address 

R3 - SDE address 

RY - DMB address 

R5. = PSDB address 

R6/R10 Work registers 

R11 - Rase ~- (subroutine CSECT) 
R12 - Rase (main CSECT) 

R13 - Current save area 
R14/R15 - Work registers 


a 
~ 
t 


DLZDDLEO - LOAD/INSERT MODULE 


The function of DLZDDLEO is to load HDAM, HIDAM, Simple HISAM, HISAM, 
Simple HSAM, and HSAM data bases (in batch only) and insert segments 
into HDAM, HICAM, Simple HISAM, and HISAM data bases. 


DLZCDLEO is entered from the DL/I call analyzer (DLZDLA00) on load 
requests for HIDAM, Simple HISAM, HISAM, HSAM, and Simple HSAM segments, 
HDAM dependent segments, and insert requests for Simple HISAM and HISAM 
roots. It is also entered from the retrieve module (DLZDLRO0O) on load 
requests for HDAM root segments, and insert requests for HDAM, HIDAM, 
and HISAM dependent segments. 
The module performs the following functions: 
A. HDAM/HIDAM load/insert - 
1 Nermal segment: 
e Positioning: retrieve positions for inserting and loading of 
HDAM roots. For all other loading, DLZDDLEO simulates retrieve 
positioning. | | | 


e Space for new segment is acquired using the space management 
module, DLZDHDSO. | 


e The segment is moved from the user's I/O area to the buffer. 
e Prefix pointers are updated. 


e Actual write is performed by the buffer handler using VSAM. 


e Prefix pointers of twins and parents are updated. 
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D. 


Ee 


The data base logger (DLZRDBLO) is called to write the new 
segment and the updated prefixes. 


If the segment is an index source segment, index maintenance 
(DLZDXMTO) is called. 


Exit is to the call analyzer. 
Concatenated segment: 


If the destination parent already exists, and the insert rule is 
physical or logical: same as normal segment. 


If the destination parent exists and the insert rule is virtual: 
the logical child segment is inserted as for a normal segment, 
data of destination parent are replaced afterwards. 


If the destination parent does not exist and the rule is not 
physical, the destination parent is inserted as for a normal 
segment; afterwards the logical child is inserted as a normal 
segment. 


HISAM and simple HISAM load- 


Main storage for a logical record for key sequenced data set 
(KSDS) and for entry sequenced data set (ESDS) is acquired from 
the kuffer handler. 


The root and all dependent segments that fit into one logical 
record are written to the KSDS, using the buffer handler. The 
remaining dependent segments are moved to one or more records of 
the ESCS. 


Pointers to those records are inserted. 


HISAM and simple HISAM root insert 


A key equal to or greater than the request is made to the buffer 
handler. If the key exists and the delete bit is flagged 
(HISAM), the space is reused; otherwise a II status code is 
returned. If the key does not exist, main storage is acquired 
from the buffer handler and the new record is built and then 
inserted by VSAM through the buffer handler. 


Old (if deleted) and new records are logged. 


HISAM dependent segment insert 


If the segment fits into the record for which retrieve (DLZDLROO) 
has positioned, it is inserted by shifting the segments beyond 
the insert point to the right. If the segment does not fit into 
the record, a new ESDS record is built. The segment and shifted 
data are inserted into the new record. If the shifted data does 
not fit into the record, a second new ESDS record is created. 


Pointers to the new records are created. 


Old and new records are logged. 


HSAM and simple HSAM load 


The I/O areas allocated by batch initialization are used to move 


the segments from the user area. PUT locate is executed, 


whenever one I/O area is filled. 
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Blocks and Tables ~ DLZDDLEO 


PST 

DDIR 

DMB 

PCB 

JCB 

Level table 
SDB 

FDE 

SCD 


Registers on Entry and to All Called Modules 
| Rl = PST 


Interfaces ~- DLZCDDLEO 





This module calls the following modules: 


DLZRDBLO - Data base logger 
DLZDEHCO - Buffer handler 

DLZDHDSO ~ Space management 
DLZDXMTO ~- Index maintenance 
DLZQUEFO ~ Queuing Facility 


Status Codes ~ DLZDDLEO 


DLZDXMTO_ + INDEX MAINTENANCE 


The function of this module is to load - insert <- delete the index 
pointer segment of a HIDAM data base and to load ~ insert - delete ~- 
replace the index pointer segment for secondary indexes of a HDAM or 
HIDAM data Lase. 


Abbreviations used throughout the module are; 


Iss Index source segment 
XDS Index target segment (indexed segment) 
XNS Index pointer segment (indexing segment) 


The following major functions are performed: 
ALL CALLS 
e Save PST information in XMAINT work area 


LOAD 
INSERT 


¢@ Build index pointer segment in work area 
For primary. indexes - take key from user I/O area. For secondary 
indexes - construct segment from SRCH, SUBSEQ and DDATA fields. For 


/CK fields use PCB-key feedback area or read parents of ISS using 
SDEPOSC or PP pointers. Call user suppression routine, if needed. 
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e Build temporary blocks SDB, JCB, DSG 

INSERT 

e Build call list and SSA 

e Call analyzer 

e Take next index relationship of this ISS 

LOAD 

e Open data kase, if necessary, or work data set 


e Call buffer handler to write index record or write work data set for 
secondary index 


e Take next index relationship of this ISS 
UNLC 


e Write FF-key record to all index data bases belonging to this data 
kase 


DLET 

e Call buffer handler to get old ISS 

e construct the old index pointer segment 

e For /CK fields take CONCAT key from DLET work area 
e Call user exit routine, to check for suppression 

e Build temporary blocks 

e Log POINTER CHANGE and DEL.BYTE CHANGE 

e Call buffer handler to change index 

e Take next index entry 

REPL 


e First part = DLET 
e Second part = ISRT 


ALL CALLS 


e Restore PST 
e Return to calling module 


Fntries: 


Receives control from DLZDDLEO (load/insert) and DLZDLDOO 
(delete/replace) ; 


Register Contents 


R1 = PST address 

R14 = Return address 

R15 = Start address 

PSTWRK1 LSDB of ISS for ISRT, ASTR, REPL calls 


LSDB Of ROOT for UNLD CALL 
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PSGB of ISS for CLFT call 


PSTENCTN *AOQ' Delete 
"Al' Replace 
*A2° Insert 
"A3° Unload 
PSTBYINM RBA Of index source segment 


Interface to called modules: 


1. CLZDLAOO (analyzer) 
Called for insert, not load mode 
PSTIQPRM points to internal call list 
Segment name*X(keyvalue) is used as SSA 
2. CLZDEHOO (buffer handler) 
PSTFNCIN: PSTMSPUT load HIDAM index 
PSTBYLCT get index target segment again 
PSTSTLEQ get index pointer segment 
PSTPUTKY index of HIDAM data base 
PSTBFALT update index of HIDAM data base 
PSTBYTNM: RBA of Segment 
or Pointer to key to be inserted 
3. CLZDLOCO (open/close) 
R2: Address of DDIR 
PSTFNCTN: PSTOCOPN + PSTQCLD + PSTOCDMB 
PSTOCOPN + PSTOCDMB 
PSTOCCLS + PSTOCDMB 
4 CLZRDBELO (logger) 
PSTWRK1: DBLLGDLT logical delete 
DBLNDXC + DELCMC XMAINT chain maintenance 
PSTWRK2: Old segment code and old delete byte 
Old RBA pointer 
PSTOFFST: Offset to new segment code 
Offset to new RBA pointer 
PSTBYTINM: RBA of record 
5.2 DLZDSEHO (work data set module) 
Is called at entry point - 12 to open work file. 
Return is to BALR if open not successful, 
to BALR + 4 if open successful. 
6. CDLZQUEFO (queueing facility) 
Called to do any program isolation queueing necessary 
Exits: 


Back to calling module. 


control Blocks - DLZDXMTO 


e Index work area - DLZXMTWA 


e SSA for the XMAINT call to the analyzer. 


3+ 32 
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DLZDLROO - RETRIEVE 


The CL/I retrieve module is responsible for retrieval of all segments, 
independent of physical data base organization. When an application 
program requests the retrieval of a segment, this module (DLZDLROO) 
gains control from the DL/I call analyzer, DLZDLA0O. The analyzer has 
validity-checked the parameters in the application program's retrieval 
request. The analyzer has also placed this parameter information for 
retrieval in the DL/I control blocks. 


Based upon this information, the retrieve module calls the DL/I buffer 
handler module, DLZDBH0O0, which controls physical I/O operations, to 
read the kLlock containing the desired segment. Once the desired block 
exists in the data base buffer pool, its presence is made known to the 
retrieve module. 


It is the responsibility of the retrieve module to “deblock" segments 
within the klock. Once the desired segment is located, the retrieve 
module places the location and length of the segment in the PST control 
block associated with the application making the retrieve request and 
returns to the DL/I call analyzer. Once a particular segment within a 
data kase is retrieved for a particular application program, “position" 
is established within the data base for the application program. This 
"position" is subsequently used to move sequentially through the data 
base if the application program issues GN and GNP calls. 


If the block containing the segment to be retrieved already exists in. 
the data base buffer pool, the request from the retrieve module to the 
buffer handler results only in the address of the desired data being 
returned to the retrieve module. No physical I/O is performed. In the 
case Of HISAM, if a retrieve request involves inspection of several 
segments within a record, the retrieve module requests only the first of 
these fron the buffer handler and finds the remaining segments itself, 
utilizing position information. Positioning information for each 
application program and each data base is maintained in the DL/I control 
blocks which are an extension of the PCB (that is, JCB, LEVVTAB, and 
LSDB). . 


In addition to servicing all data base retrieval requests, the retrieve 
module performs “positioning"™ functions for all segment insertion. [In 
this case, the retrieve module receives control from the DL/I call 
analyzer module on an insert call. Prior to the insertion of a new 
segment occurrence, DL/I must insure that the segment does not already 
exist in the data base. It is the responsibility of the retrieve module 
to retrieve the block where the segment to be inserted may already 
exist. If the segment does not already exist in the data base, the 
block retrieved is normally used for segment insertion. Once the 
desired physical block is retrieved and positioning for segment 
insertion within the block is established, control is passed to the DL/I 
load/insert module, DLZDDLEO. If the data base organization is Simple 
HSAM or HSAM, the retrieve module performs the I/O (Get/Put) rather than 
calling the buffer handler. 


HIDAM root retrieval by key (qualified GU, GN), results in two buffer 
handling requests. The first retrieves the index segment as any HISAM 
root. The second uses the RBA of the HIDAM root in the index segment to 
get the corresponding root segment. The position of the index segment 
is saved in a special SDB. 


Retrieval of segments addressed by secondary indexes is performed in the 
same manner, as far as possible, as the retrieval of a HIDAM primary 
root segment. (The SDBs are generated so that the index looks like a 
primary index and the index target eenens Take a HIDAM primary. root.) 
The most important differences are: 
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e The layout of the index pointer segment is user dependent and is 
different from that of a primary index. 


e The sequence field of a secondary index is not necessarily part of 
the target segment and may be in a dependent segment. 


Variakle length segments are handled by the routine VLRT which provides 
an exit to a user routine to handle any necessary data expansion after 
calling the normal buffer handler interface (SETL). 


Retrieval of logically related segments requires special handling. The 
retrieved segment (the concatenated segment) consists of the logical 
child (that is the concatenated key and the intersection data) and the 
physical or logical parent (destination parent). Since the SDBs always 
reflect the user's view of the data base, the same program logic is used 
whether the segment to be concatenated to the logical child is a 
physical or a logical parent. The concatenated key of the destination 
parent is constructed using the physical or the logical parent pointer 
of the logical child and the physical parent pointer of the destination 
parent. For ISRT calls the concatenated key in front of the input data 
is used to position on the destination parent. All positions on the 
physical path to the destination parent and on the twin chain of the 
destination parent are maintained. 


Command Codes Affecting Retrieval 


CD - The segment data is moved when the level table is updated and 
not at return to the analyzer. 


L = The segment Skip routine is employed to skip to the last 
occurrence. 


T - The RBA specified in the SSA is moved to the next position 
pointer location in the appropriate SDB and an unqualified GN 
is performed. 


F - For a GN (GNP) call, the same logic is employed to retrieve 
the first occurrence as for a GU call. | 


Module Layout - DLZDLROO 


This module consists of 60 subroutines, a main entry routine (DLZDLRO), 
a main exit routine (DLZDLR1), and a general linkage and maintenance 
Support routine (DLZKLNKD), each of which is preceded by a description 
in the form input ~ processing - output. The subroutines are linked 
using macro DLZRLNK and the following macros (refer ‘to the comments in 
the CLZRLNK source program listing): 


DLZRHDR sect First macro of a subroutine; generates DSECTs, EQU, 
and module identification. 


DLZRTLR - Last macro of a subroutine. 


DLZRCLL - Generates code to transfer control to a 
subroutine using DLZRLNK. 


DLZREXT ~ Generates code to return control to a calling 
subroutine using DLZRLNK. 


The wodule is supplied as eight files. The first seven, DLZDLRAO to 


_DLZDLRGO, contain the subroutines and the eighth, DLZDLNKD, contains the 
linkage and maintenance support routine that is generated using the 
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macro DLZRLNK. The second file, DLZDLRAO, also contains the routines 
DLZDLRO and DLZDLR1. The distribution of the subroutines within the 
CSECTs contained in the files DLZDLRAO to DLZDLRGO is arbitrary and can 
be changed at will, necessitating only that the affected CSECTs be 
reassembled. 


Maintenance Support - DLZDLROO 


The module DLZRLNKD contains facilities to dynamically dump control 
klocks and I/O buffer sections. The extent and frequency of the dumping 
is controlled by DLZRLNK macro parameters or control fields in the PST 
as descriked in the DLZRLNK source program listing. 


Interfaces - DLZDLROO 
This module interfaces with the following modules: 
DLZDDLEO - Load/insert 


CLZDBHOO - Buffer handler 
CLZQUEFO - Queuing Facility 


Register Contents on Entry and Return 


RO = SCD 
R1 = PST 
R2 = PCB 


Register Contents During Execution 


RO = Work 

Ri = Work 

R2 = PCB 

R3 = JCB 

R4& = LEVTAB 

R5 = SDB 

R6 = Segment address 

R7 = PST | 

R8 = DSG part of JCB 

RI = Byte or record location of SEGM in data kase 
R11= Base register for linkage routine DLZRLNKD 
R1i2= Base register 

R13= Save area 

R14= Work 

R15= work 


DLZDHDSO - HD SPACE MANAGEMENT 


Module DLZDHDSO allocates and maintains free space on direct access | 
storage devices for storage of DL/I segments in the hierarchical direct 
Organizations (HDAM and HICDAM). This space is managed through the use 
of free space elements (FSEs) in each block of each data set of a data 
base and a kit map. The bit map describes blocks that have at least one 
FSE which can contain the largest segment in the data set. There is one 
bit wap per data set consisting of one or more blocks distributed 
equidistant over the data set. 2 
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Module DLZDHDSO consists of CSECTs which perform the panmone te 
functions: 


DLZDHDOO contains the entry point for the combined module. It saves 
registers, initializes the work words in the PST, and 
kranches to the appropriate module. 


DLZGGSPO consists of a ‘driver’ for all subfunctions that may be 
invoked to find space. It uses one byte of the work space to 
control invocation. This CSECT also controls formatting for 
HDAM when the root anchor point is beyond the current end of 
the data set and formatting of new bit map blocks, if 
necessary. 


DLZFRSPO returns to free space the space Occupied by a segment being 
deleted. It logs the deletion of the segment and updates the 
bit map if required. 


DLZRCHBO searches the block passed to it for an FSE that satisfies the 
current request. If none is found, control returns to the 
calling module. If the request can be satisfied, the return 
is directly to the invoker of DLZDHDSO. 


DL ZRRHPO searches the DL/I buffer pool for a block in the range passed 
to it. If one is found, module DLZRCHBO is called to search 
it. If the block is rejected, the search continues to the 
end of the pool, and control is returned to DLZGGSP0. To 
avoid changing the position of buffers on the buffer pool use 
chain, online and batch are treated differently. In a batch 
environment, the buffer to be searched is passed to DLZRCHBO 
and may be used without being requested from the buffer 
handler. Ina DL/I online environment, the buffer is passed 
to DLZRCHBO. If the request can be satisfied from it, the 
kuffer is then requested from DLZDBHOO and again passed to 
DLZRCHBO for aetual alteration. 


DLZRRHMO searches the bit map for a bit that is a one and is also in 
the specified range. If one is found, its corresponding 
klock number is returned to DLZGTSPO. If all bits are zero, 
PSINOSPC is returned to DLZGGSP0O. The map search functions 
include creation and formatting of new bit map blocks, if 
necessary. To further proximity of space for related 
segments, whenever possible, the search within a given range 
is done from the center to the outer ends of that range in 
koth directions at the same time. 


DLZLMCLO calculates search limits for DLZGGSP0. A switch is used to 
determine the appropriate limit - track, control area, delta 
control areas. The limits of the previous scan are used to 
break the range into two subranges. This prevents the re- 
requesting of blocks that were rejected during earlier scans, 


DL ZMPLCO determines the block number for the bit map block appropriate 
to the block number passed to it. It also determines the | 
relative bit position in the bit map block of the block 
number passed to it. 


DL ZMMUDO turns the appropriate bit ON or OFF according to the entry 
point involved. The log is also called to reflect the | 
change. | as | | ee S 


DLZDCIO0O tests to see if the device containing the data base is 


actually an FBA device if it was specified as such, and, if 
it is, calculates the CIs per track and per cylinder and the 
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Interfaces - CLZDHDSO 


scan value in cylinders equivalent to the number of FBA 


Elocks specified during DBD generation. 


These values are 


stored in the DMB for later use. 


The following modules are called by DLZDHDSO: 


CLZDBHOO - Buffer handler 
DLZRDBLO - Data base logger 


Calling Sequence 


R1 


R5 
R14 
R15 


Return 


On 


PSTRTCDE 


R15 


PSTRTCDE 


PST address 


PSTDSGA DSG address for appropriate file (all calls) 
PSTFNCTN 
PSTGTSPC 01 Get space 
PSTFRSPC 02 Free space 
PSTBIMPF 03 Turn off bit in bit map 
PSTGTRAP 04 Get space close to root anchor 
point 
PSTREN RBN of segment to get space close to + PSTGTSPC 
RBN of segment to be deleted - PSTFRSPC 
BBBR - PSTGTRAP 
where BBB = relative block number, 
R = root anchor point number 
PSTBLKNM Block number whose bit is to be turned off - 
PSTBIMPF 
DMEPSCB Address Of PSDB of subject segment 
Return point 


Entry point - DLZDHDSO 


PSTCALOK 


PSTBTMPF 


) 

4 
PSTGTDS 
PSTNCSPC 


PSTIOERR 


PSTNPLSP 


Space obtained; REN is in PSTRBN 
- PSTGTSPC, PSTGTRAP 
Space freed - PSTFRSPC 
Space obtained. After 
DLZDHDSO to adjust bit 
For above return codes. 
Error has occurred; check PSTRTCDE 

The RBN to get close to does not exist 
DLZDHDSO could not find space in data 
set - PSTGTSPC, PSTGTRAP 

See DLZDBHO0O 

See CLZDBH0O 


insert, call 


map. 
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DLZDBHOO ~- DB BUFFER HANDLER 


The primary functions of module DLZDBHOO are: 


1. 


20 


To satisfy requests for buffer space for the processing of the data 
bklocks of HD data bases. For Simple HISAM and HISAM data bases and 
for the index of HIDAM data bases, the VSAM buffer management is 
used. 


To issue I/O requests to VSAM whenever data must be read or written. 
Thus, the buffer handler provides an interface between the DL/I 
action modules and VSAM data sets. 


Whenever possible, to satisfy requests for data base segments and or 


records from data currently available in its buffer pool without 
issuing an I/O request. For this purpose, data is retained in the 
pool as long as possible. Various features such as use chains and 
alteration flags are employed so that a centralized buffer 
management is facilitated for concurrent use by all application 
programs. 


The buffer handler satisfies the following requests as indicated by 
PSTFEFNCTN: 


1. 


For processing HDAM, HIDAM, or HISAM ESDS: 


Symkol Hex 
Function Function Description 


PSTEYLCT 02 If the request is issued for an HDAM or 
HIDAM data base, the buffer handler 
retrieves the control interval whose 
relative byte number is stored in 
PSTBYTNM. The relative byte number in 
PSTBYTNM is first converted to a VSAM 
control interval number and an offset 
within the control interval. 


If this control interval is not in the 
buffer pool, buffer space is obtained in 
the buffer pool, the buffer which will be 
used is written, and the control interval 
is read into this buffer by a VSAM get 
call. | | | 


If the requested control interval is 
already in the buffer pool, no read is 
done and the address of the buffer 
containing this control interval is 
passed back to the caller. 


If the request is issued for a HISAM ESDS 
data base, the buffer handler only issues 
the propér VSAM call for retrieving the 
record identified by the RBA which has 
been passed to the buffer handler in 
PSTBYTNM. 


PSTBKLCT 01 The same as PSTBYLCT for an HDAM or HIDAM 
data base except that a VSAM control | 
interval number is passed to the buffer 
handler in PSTBLKNM. 
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PSTBYALT 


PSTBFALT 


PSTGESPC 


PSTFESPC 


PSTPGUSR 


- PSTPBFMPT 


PSTWRITE 


06 


05 


03 


04 


07 


04 


08 


A locate relative byte number (refer to 
PSTBYLCT) is done first and then the 
buffer which contains the control 
interval is marked as altered by this 
specific user. 


If the request has been issued for an 
HDAM or HIDAM data base, the buffer whose 
prefix address is stored in PSTBUFFA is 
marked altered. 


If, however, the request applies to a 
HISAM ESDS, the proper VSAM call is 
issued to write the record immediately. 


A buffer with the length specified in 
PSTBYTNM (possibly rounded to the next 
multiple of 512 bytes) is provided to the 
caller. 


A buffer identified by a DMB number, ACB 
number, and control interval number in 
PSTDMBNM, PSTACBNM, and PSTBLKNM is 
freed, that is, it is marked empty and 
put on the bottom of the use chain. 


All the buffers which have been modified 
by a specific user are written. All 
nonreusable buffers held by this user are 
marked empty and put to the bottom of the 
use chain. The bit representing this 
user is turned off in the user mask of 
all permanent write error blocks. 


If the purge request is on behalf of a 
CHKP function-call, all DMBs are scanned 
for index data bases and ENDREQs are 
issued to ensure that all VSAM buffers 
are written to the data bases. 


All buffers of one data kLase or certain 
buffers of a data base are marked empty 
and put on the bottom of the use chain. 


A logical record is added to a HISAM 
ESDS. 


2. For processing HIDAM index, Simple HISAM or HISAM KSDS: 


(a) Accessed by VSAM RBA 


: Symbol 
“Function 
PSTEYLCT 


PSTBFALT 


PSTERASE 


Hex 


Function 


02 
05 


OA 


(b) Accessed by key 


- Symkol 


Description 
Retrieve the VSAM KSDS record by the RBA 


which is in PSTBYTNM. 


Write the VSAM KSDS record by the RBA 
which is in PSTBYTNM. 


Delete the VSAM KSDS record identified my 


the RBA which is in PSTBYTNM. 
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Function Function Description 
PSTSTLEQ : 09 Retrieve the VSAM KSDS record whose key 
| is equal to or greater than the key whose 
address is stored in PSTBYTNM. 


PSTGETNX OB Retrieve the next sequential VSAM KSDS 
record. 
PSTSTLEG 0c Retrieve the first VSAM KSDS record in a 
data base. 
PSTPUTKY OD Insert a record by key directly into a 
| VSAM KSDS. 
PSTMSPUT OE Insert a record which is in ascending key 


order into a VSAM KSDS. 


The buffers which are used for satisfying these requests are provided by 
VSAM buffer management. The buffer handler provides VSAM control blocks 
(ACE, EXLST, and RPL) to VSAM data management when issuing the required 
VSAM getron macro. 


The aeauie DLZDBHOO consists of three CSECTs: 


CLZDBHO0O Contains the code for the functions 
e PSTBYLCT 
e PSTBKLCT 
e PSTBYALT 
e PSTBFALT 
e PSTGBSPC 
e Maintenance of write chain and use chain 
DLZDBHO2 Contains the code for the functions 
e PSTSTLEQ PSTMSPUT 
e PSTGETNX PSTERASE 
e PSTSTLBG PSTWRITE 
e PSTPUTKY 


Additionally, this CSECT contains the code required for 
preparing and issuing Of VSAM calls and for processing 
feedback information by VSAM. 


CLZDBHO3 ##$Contains code for the functions 
e PSTFBSPC 
e PSTBFMPT 
e PSTPGUSR 


In addition, this CSECT contains the subroutines for providing an 
enqueue/dequeuve function. 


Write Chain 


The new control intervals of a HIDAM or HDAM data base are chained 
together on a write chain in ascending order of their control interval 
numbers. If one of the buffers on the write chain has to be written, 
all buffers on the chain are written. 


There is a write chain for every data base. It is maintained by storing 
the prefix numbers of the prefixes of the next higher and the next lower 
buffers in kytes 18 and 19 of the prefix. A bit switch in byte 7 of the 
prefix (X'80") is on if a buffer is on a write chain. 


Mae 


Use Chain 
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All kuffers are chained together in the order of their usage. This use 
chain is physically separated from the buffer prefixes and consists of 
one-byte elements containing relative numbers of prefixes. The order of 
the kuffers on the use chain is indicated by the physical order of these 
use chain elements. 


There is one use chain area per subpool. Each use chain area has a 
Maximum of 32 entries. The maintenance of the use chain involves 
putting a use chain element on the bottom or on the top of the use chain 
as follows. The contents of the use chain element which is to be moved 
are saved. Then all use chain elements located behind the element to be 
put On top, or located before the element to be put on the bottom, are 
moved to the address which is one byte lower than the load <cddress (or 
one byte higher if an element is placed at the bottom). The saved 
element is then stored at the top or the bottom of the chain. 


ENO/DEQ Subroutines 


Since transactions in an online environment may be processed in multi- 
thread mode, the buffer handler may have to synchronize and/or delay 
requests for buffers and/or buffer space. This is accomplished in two 
subroutines which perform ENQ/DFQ type functions and an interlock check. 
The following fields are used by the ENQ/DEQ routine: 


Function Label Control block 
ENQ/DEQ existing control BFFRPST Buffer prefix 
interval (CI) ID PPSTEXCI PST prefix 
ENQ/CEQ pending CI ID BFFRNPST Buffer prefix 
PPSTPECI PST prefix 
PPSTCHAT PST prefix 
ENQ/CEQ sukpool SUBNOQFI Subpool information table 
_ SUBNQLA Subpocl information table 
PPSTSUPO PST prefix 
FNQ/DEQ matrix BFPLPSIL Buffer pool prefix 
PFPLFSIF Buffer pool prefix 
BFPLPSIL Buffer pool prefix 
PPSTMATR PST prefix 


For interlock detection, the ENCG/DEQ routines use the contents of 
the following buffer pool prefix fields: | 


EFPLINMA interlock detection matrix 
BFPLINW1L work areas 
BFPLINW2 


The ENQ/DEQ routines use the following fields in the buffer pool 
prefix as work space: 


BFPLNQW1 
BF PLNQW2 


Normally, the resources to ke enqueued are the existing contents of a 
buffer (existing CI ID) or planned contents of a buffer (pending CI ID). 
Under certain circumstances, other resources may be enqueued. 


Enqueuing Of a resource consists of the following steps. 


If the resource iS available: 
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If 


1. 


2~ 


4. 


Se 


Store the PST ID into a field of the resource reserved for this 
purpose (that is, BFFRPST, BFFRNPST, SUBNQF1, BFLPSIF). 


Store the resource ID (for example, the buffer number) into a field 
in the PST reserved for this purpose (that is, PPSTEXCI, PPSTPECI, 
PPSTSUPC, PPSTMATR). 


Indicate successful ENQ with a return code of 4 and return to 
caller. 


the resource is not available: 


Find a position for the current PST in the interlock detection 
Matrix. | ; 


Indicate ky an appropriate entry that this PST is waiting and for 
which task. 


Check whether this waiting would cause an interlock. 
If no interlock possible: 


a. Chain with appropriate chain fields the current PST behind the 
last PST already waiting for this resource. 


b. Return with a return code of 8 to indicate that a wait condition 
exists. 


If an interlock would occur if the current PST were to attempt to 
wait on this resource: 


a. Remove the entry made in 2 above from the interlock detection 
Matrix. | 


be. Indicate with a return code of 12 that an interlock would 
cccur and return. 


Dequeuing of a resource consists Of the following steps. 


1. 
2 
3a 


4. 


Remove the resource ID from the appropriate field in the current PST. 
Remove the PST ID from the appropriate field in the resource. 


If the PST chain fields indicate that no other PST was waiting on 
this resource, return to caller. 


If another PST was waiting on this resource: 

a. Move the waiting PST ID into the resource and remove the 
corresponding wait indication from the interlock detection 
matrix. 

bk. Post the waiting PSTs and unchain the current PST. 

c. If, kecause Of 4.a, certain rows and columns in the interlock 
detection matrix are free now, make these availakle for use by 

other PSTs and post those (see description of action taken on 
pseudo-interlock conditions). 


qd. Return to caller. 


For performance reasons, resources contain, in addition to the owning 


PST's ID, the ID of the last PST in the wait chain for this resource. 
These IDs are also maintained by the ENQ/DEQ routines. 


Me 
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The interlock detection matrix consists of a pair of eight-bit matrices. 
The first bit matrix indicates for up to eight PSTs which PST is waiting 
on which other PST. Rows and columns are dynamically allocated to PSTs 
aS required. A one-bit in the appropriate row and column indicates a 
wait condition. The second bit matrix is the transpose of the first. 

An imminent interlock is detected by some simple logical operations 
executed against those two matrices. In the event that eight PSTs are 
occupying this matrix when further PSTs request service involving a wait 
condition, a code of 16, indicating pseudo-interlock, is returned and no 
enqueuing takes place. 


The following types of ENQ requests may occur: 


ENQ existing CI ID When a task either wants to write a buffer or wants 
to get posted when reading into or writing a buffer 
is finished. 


ENQ pending CI ID When a task wants to reuse a buffer in the buffer 
pool or when a task wants to get posted when the 
creation of a pending (i.e., new) CI is finished. 


ENQ subpool When there is currently no buffer prefix in a subpool 
| allowing a pending CI ID. 


FNQ matrix When a task wants to ENQ On a resource currently held 
| by another task and no free row/column in the 
interlock detection matrix is available. 


The following action is taken by the main routine of the buffer handler 
on a return code (RC) indicating nonsuccessf ul ENQ. 


Condition RC Issue 
Wait 8 Issue IWAIT macro. 
Interlock 12 Dequeue all resources held by this PST and retry 


the current DL/I request. 


Pseudo 16 Dequeue all resources held by this PST and 
enqueue on interlock detection matrix. This 
causes a wait condition. Issue IWAIT. Upon 
post, dequeue matrix and retry current DL/I 
request. 
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Control Biocks - DLZDBHOO 

PST 

PPST 
CCIR 
DMR | 
CSG 

SCL 

BFEFPL 
RBFFR 
SBIF 


Interfaces '- CLZDEHOO 


DLZCEHOO uses the PST for communication from and to the calling modules 
and for work space. The DSG is used to obtain the DMB number and ACB 
numcker of the data set which applies during a request. The address of 
the kuffer pool prefix is oktained from the SCD. The address of the 
buffer prefix area is obtained from the buffer pool prefix. VSAM is 
invoked for all I/0. 


In order to make sure that writing of log information is always ahead of 
updating a data base, the buffer handler may branch to a specific entry 
point of DLZRDBLO or DLZRDBL1. (Refer to the description in the 
paragraph akout DLZRDBLO and DLZRDBL1.) 


DLZDEBHOO issues the RELPAG macro for buffers that are marked empty. 
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Buffer Handler Functions and Required Fields 


The following chart illustrates which fields must be supplied to the 
buffer handler (input) for each specific function and which fields are 
filled in by the buffer handler (output) on completion of the function. 


1. 


Function 


PSTBYLCT 


PSTBKLCT 


PSTBYALT 


PSTBFALT 


PSTGBSPC 


PSTEBSPC/PSTBFUPT 


PSTPGUSR 


PSTBLKNM 


PSTBUFFA 


PSTBYTNM 


PST DMBNM 
PSTACBNM 
PST BLKNM 


PST DMBNM 
PSTACBNM 
PSTBLKNM 
PPSTID 


Function used to access a HIDAM or HDAM data base 


Relative byte 
number of desired 
segment 


PSTOFFST 


RBA of desired 
segment 


PSTDATA 


See PSTBYLCT 


Address of buffer 
prefix which is to 
be marked altered 
Number of desired PSTDATA 
bytes 


DMB 
ACB 
Control interval RBA 


All or part of 
buffer identifier 
may be passed. 


DMB 

ACB | 

Control interval RBA 
User identifier 


Any or all of these 
may be passed. 


PSTDATA 


PSTBYTNM 


Core 
address of 
desired 
Segment 


Offset of 
segment 
from 
beginning 
of control 
interval 


Core address 
of desired 
segment 


See PSTBYLCT| 


Address of 
provided 
buffer 





Licensed Material - Property of IBM 3-45 


2.3 


Function 





PSTBYLCT 


PSTBFALT 


PSTWRITE 


3.3 


Function 


PSTSTLEQ 


PSTSTLBG 


PSTGETNX 


PSTPUTKY 


PSTMSPUT 
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Functions used to access a HISAM ESDS 


PSTBYTNM RBA of the logical 


record to be read 


PSTBYTNM RBA of the logical 


record to be written 
PSTDATA Address of work area 
containing the logical 
record 


PSTBUFFA | Prefix address 


PSTDATA 


PSTBLKNM 


Address of the 
record within 
the buffer 


RBA of the record 
added to the ESDS 
as calculated by 
VSAM 


Functions used to access a KSDS by key (Simple HISAM, HISAM or HIDAM 
index) 


PSTBYTNM Address of the field 
which contains search 


argument 


Address of work 
containing the 
record 


PSTDATA area 


logical 


PETBUFFA | Prefix address 

Address of work area 
containing the logical 
record | 


PSTDATA 


PSTBUFFA 


Prefix address 
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PSTBYTNi 


PSTDATA 


PSTBYTNM 


PSTDATA 


PSTBYTNM 


PSTDATA 


RBA of the logical 
record retrieved 
Core address of 
record 


RBA of the logical 
‘record retrieved 
Core address of 
record 


RBA of the logical 
record retrieved 
Core address of 


record 





4, Functions used to access a KSDS by RBA (HISAM or HIDAM index) 


Function ~ 
R14 - Return address to caller 


PSTBYTNM RBA of the logical PSTDATA Address of the 
record to be retrieved record within the 

R15 - Address Of DLZDBHOO 
Fields Required (Independent of Function) 


buffer 
PSTFNCIN Hexadecimal code for desired function 












PSTBYLCT 












PSTBFALT PSTBYTNM 





RBA of the logical 
record to be written 








PSTDATA 





Address of the record 
Within the buffer 









PSTERASE 





PSTBYTNM RBA of the logical 


record to be erased 





Calling Sequence 


RO - SCD address 
R1 - PST address 


PSTDSGA Address Of associated DSG needed for: PSTBYLCT, 
PSTBKLCT, PSTBYALT 


PSTELKNM Identification of desired block needed for: 
PSTBKLCT, PSTBFALT, PSTFBSPC 


~PSTDMBNM Number of associated DMB needed for: PSTBKLCT, 
| PSTBFALT, PSTFBSPC, PSTGBSPC 


PSTACBNM Number of associated ACB needed for: PSTBKLCT, 
PSTBFALT, PSTFBSPC, PSTGBSPC 


PSTBYTNM PSTBYLCT/PSTBYALT ~ relative byte address of desired 
segment - relative record number 
of HISAM ESDS (high-order byte = 
X'80") 

PSTGBSPC - fullword size of requested space 


PSTEPUFFA Address of buffer prefix for block to be marked 
*"altered' - PSTBFALT 


DSGCDMBNC DMB number of the referenced data base 
DSGDCBNO ACE number of the referenced data set 
Cn Return 


R15 Request satisfied 


Warning or error condition 


£06 
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Fields Returned (Independent of Function) 
PSTOFFST Offset from PSTDATA back to first byte of block 


PSTDMBNM DMB numker 
PSTACENM ACE numker 


PSTDATA Address of first byte of requested segment, record, 
or space 


PSTBUFFA Address of buffer prefix 


PSTNUMRO Number of reads done during this call 
PSTNUMWT Number of writes done during this call 
PSTCLRWT 
Bit 0 This caller waited during request 
1-8 Reserved 
PSTRICCE 
Return 
Code Hex 


Function Function Description 
PSTCLOK 00 No error occurred during this request. 


PSIGTDS 04 Record, CI, or segment requested is more 
than one CI beyond the end of the data 
set ~ returned on PSTBKLCT, PSTBYLCT, 
PSTBYALT 


PSTIOERR 08 Requested CI, record, or segment could 
not be read successfully on a PSTBKLCT, 
PSTBYLCT, or PSTBYALT call or could not 
be written successfully on a PSTPUTKY, 
PSIMSPUT, PSTWRITE, Or PSTBFALT call. 


PSTNCSPC 0c An out of space condition occurred on the 
Gata set DASD while processing this 
request. 

PSTBDCAL 10 The byte at PSTFNCIN is not a valid 


function or the DMB/ACB/BLKID in the PST 
do not match corresponding fields pointed 
to in PSTBUFFA for a PSTBPFALT call. 


PSTNOTFD 14 A PSTSTLEQ call has been issued for a 
record whose key is higher than the 
highest key in the data set. 


PSTNWBLK 18 The requested CI, record, or segment will 
go in the CI, one greater than the 
current end of the data set. Space has 
been allocated in the pool to hold the 
new CI. The address is at PSTDATA. 


PSTNPLSP ic The pool does not contain enough space to 
satisfy the request. 


PSTWROSI 20 A request (GBSPC) was issued for a buffer 
Size which exceeds the highest buffer y 
Size handled by any subpool. (i 
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PSTENDDA 24 The end of data set has been reached on a 
PSTGETNX call. 


PSTBYEND 28 A request has been issued with a key or 
RBA higher than the highest key or RBA in 
the data set. 


PSTEOD 2c End of data set has been reached on a 
request by DLZDLOCO. 


PSTINLD 34 Invalid request during data set loading. 


DLZRDBLU = DB LOGGER 


The data base logger module logs the modifications made to a data base. 
These data kase log records are written to the system log. This module 
is invoked by several of the DL/I modules associated with data base 
modifications. 


The logging of data base modifications, additions, and deletions is done 
on a physical basis to facilitate a quick recovery procedure. Only 
calls that actually cause a change to be made to a data base are logged. 
Two sets Of information are togged for each modification - a before set 
and an after set. 


The before information is that required by the data base backout 
utility. It is used to back out a partially completed update series and 
to restore a data base to some prior point in time. 


The after information is that required by the data base recovery 
routines to restore the data base from a previous backup copy. 


There are five basic types of data base log records. 


1. POINTER maintenance record 
When a segment is deleted or inserted and it causes a change in any 
of the pointers in other segments, each pointer is logged separately 
aS a POINTER maintenance record. A POINTER maintenance record is 
indicated by bits 1, 2, and 3 of the DLOGFLG2 field of the log 
record keing set to zero. 


2» PHYSICAL INSERT record 
When a segment is physically added to the data base, a PHYSICAL 
INSERT record is written. This type of record is indicated by a one 
in bit 1 cf the DLOGFLG2 field. | 


3. PHYSICAL DELETE record 
When a segment is physically removed from the data kase, a PHYSICAL 
DELETE record is written. This type of record is indicated by a one 
in bit 2 of the DLOGFLG2 field. | 


4, PHYSICAL REPLACE record | | 
When a segment in a data base is modified, a PHYSICAL REPLACE record 
is written. This type of record is indicated by a one in bit 3 of 
the DLOGFLG2 field. 


Ss LOGICAL DELETE record : 
When a DLET call is issued but the segment is not physically removed 
from the data base, a LCGICAL DELETE record is written. Only the 
segment code and delete bytes are logged. A logical delete record 
is indicated by bits 1 and 2 of the DLOGFLG2 field being set to a 
one. 
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In addition to data base log records, the data base logger module also 
uses: | : 


e Application program termination records 

¢ Application program scheduling records 

e File open records 

e Checkpoint records | 

The layout for these records is shown in Section 5 of this manual. 


Record types 1, 2, 3, and 5 contain the before and after information in 
the same record and have a 10g code of X'50"%. Type 4 requires two 
records. The after record has a log code of X50"; the before record 
has a log code of X*51". Additionally, if a physical insert reuses 
space Of a deleted record, log records X'50" and X‘'51' are written. 

| e a | 
If the change is an insert or a delete, the before and after are part of 
the same record. On an insert, the new segment, including the prefix, 
is logged as the change data. On a delete, the old segment and prefix 
are the change data. In HD, both insert and delete cause changes to the 
free space elements (FSEs) within a block. The new FSEs and their 
offsets are logged following the change data and a count of the changes 
is placed in kits 4 through 7 of the DLOGFLG1 field. 


The information needed to create the log record is retrieved from the 
various DI/I blocks. A small amount of additional information is passed 
aS parameters from the DL/I action modules. 


The data kase log tape format is undefined records (UNDEF). The block 
size is 1024 bytes. Maximum record length is 512 bytes. If a segment 
cannot be logged into one record, it is internally spanned over two or 
more log records. The first record is logged with a data length 
adjusted to match the data it contains. The offset for the second 
record is incremented by the length of the first, and the second is 
written as a separate segment. The adjusting of data length and offset 
continues until the entire segment is written. 


The data base disk log uses VSAM with a CI size of 1024, The user 
buffer facility is used to ensure that the log records are written 


immediately. The disk log record format is compatible with the tape log 
record. 


Control Blocks - DLZRDBLO 


e Cata base log record 
e Application program termination record 
e Application program scheduling record 


e File open record. 


Register Contents 


R1 - PST address 

R13 - Save area A 
R14 - Return address | 4 
R15 = Entry point address. | 
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High-order byte of PSTWRK1 field in PST: 


Bit Value Definition 
0 1 Index maintenance call 
3 000 Chain maintenance call 
001 Physical replace 
010 Physical delete 
100 Physical insert 
110 Logical delete 
111 Reserved 
4 1 Last change for this user call 
5 0 One FSE (physical delete or insert) 
1 Two FSES 
6 1 Old copy of physical replace 
7 1 New block log call 
4&6 1-1 No data - end of user call 


PSTWRK1 - Physical SDB address (except new block call) 
- Data length (low halfword) if new block call 


PSTWRK2, PSTWRK3, PSTWRK4Y - Old data on pointer maintenance and 
logical delete calls. FSE data on physical insert and 
delete calls. | 


Before a data base block is updated (that is, before the buffer handler 
issues the put for an updated block), the associated log information is 
first written to the log tape or disk in the following manner. 


After issuing a put to write a log block to the log tape or disk, the 
log module updates the count of written log blocks in the field 
SCDLOCOU. 


When the log module processes a log call, in which a data base buffer is 
involved, the current count of written log records is stored from 
SCDLOCOU into byte 7 of the buffer prefix in the case of HD, or into the 
field DMBACELC in the ACB extension in the case of HISAM and HIDAM 
index. 


Before issuing any put for updating a data base block, the buffer 
handler compares the value stored in the buffer prefix (HD) or in the 
ACB extension (HISAM, HIDAM INDEX) with the current value in SCDLOCOU. 
If the two values are unequal, the log information associated with the 
data base update has already been written out. If the two values, 
however, are equal, the buffer handler branches to entry point WRIAHEAD 
of CLZRDBLO to force the current contents of the log I/O area to be 
written out immediately. If, however, asynchronous logging was 
requested by the user, the count comparison is bypassed, that is, no 
“write ahead" logging takes place. 


Logging in the Online System 


In the Online system the put for the log blocks is issued in a separate, 
asynchronous subtask, which is attached at system initialization time. 
This subtask is a separate CSECT within the log module DLZRDBLO. 


The purpose for this is to avoid losing tasks when the end of volume 
condition is encountered on the log tape. 
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The communication between the asynchronous log subtask, the logger, and 
the DL/I online nucleus (DLZODP) is achieved by using three ECBs as 
follows: 


1. System ECR (SCDESECB, in SCD extension), which is used for the 
communication between the log module (DLZRDBLO) and DLZODPOO. 


2. Log I/O ECB (SCDELECB, in the SCD extension), which is used for the 
communication between the log module and the asynchronous log 
subtask. 


3. Private ECB (fullword in the log subtask CSECT), which is used for 
the communication between the asynchronous log subtask and the log 
module during the end of the I/O operation that was initiated by the 
log subtask. 


Figure 3-2 shows the events which take place when a PUT for a log block 
becomes necessary in an online environment. 
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The relationship between all modules involved in the asynchronous log 
writing is as follows: 
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DLZRDEL1 - CICS JOURNAL LOGGER 


Logging in thé online systém can also be done ‘by using the journaling 
feature of CICS. That means the DL/I log information as described about 
module DLZRDBLO will go on the ‘same file as any CICS ‘journal | 
information. 


This is possikle because CICS uses — different journal record IDs than 
DL/I (DL/I tises X'07", X*08*, X*2F", X"50", X'51"). Any DL/I utility 
which uses a journal tape will ‘check the record ID and process only 
those ‘records, which have record IDs used by DL/I. | 


The general structure of DL/I log ‘retords, cIcs jourhal records and Cics 
journal blocks is shown in Figures 3-3, 3-4, and 3-5, respectively. — | 
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LL bb as CONTINUED ACCORDING TO DSECT 


0 2 4 


Figure 3-3. DL/I Log Record 


SYSTEM PREFIX 
JOURNALLED 


Figure 3-4. CICS Journal Record 





LL bb CICS/VS LABEL RECORD ANY COMBINATION 


OF CICS/VS JOURNAL RECORDS AND 


DL/! LOG RECORDS | 


Figure 3-5. Layout of a Journal Block 









If the user requests logging by CICS journaling (UPSI bits 6 and 7 = 0), 
DLZOLIOO loads module DLZRDBL1 instead of the standard log module 
DLZREELO. This module provides the following services: 


e Build and write open records for each data base that has been pees 
DFHJC TYPE=WRITE is issued to CICS. 


e Build and write log records on request by the action modules. DFHJC 
TYPE=WRITE is issued. 


e Write log pecevas built. by the sched/term. routine. DFHJC TYPE=WRITE 
is issued. 


e Initiate a physical put to the journal tape on request of the buffer 
handler. DFHJC TYPE=WAIT is issued. 


Before a journal call is issued to CICS, DLZRDBL1 checks if the task 
which is going to write a journal record already owns a JCA. If it does 
not, a GET JCA ¢all is issued prior to issuing the DFHJC call. 


Since DLZRDEL1 is not reentrant, no task can be allowed to. enter this 
module while log I/O is being processed. 


DLZRDEL1 unposts an ECB (SCDESECB) prior to any physical I/O. In 
various parts of DLZODP this ECB is checked, and, if it is locked, a 
CICS wait is issued before control is passed to any action module. 

When log information is written by using CICS Journaling, the writing of 
log information is always ahead of updating the associated data base 
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klocks. The scheme used is the same as with standard logging, the only 
@ifference keing that the value for the number of written journal blocks 
(CICS ECN) is not manipulated by the log module but is taken out of the 
JCT. | | _ | 


Control Blocks Addressed 





e Data base log record 
e Application program termination record 
e Application program scheduling record 


e File open record 


DLZQUEFO ~- QUEUING FACILITY 

The DL/I queuing facility module provides resource contention control 
exclusively for the requirements of program isolation (PI). 

Program isolation supports resource contention control at the segment 
level (fcr HDAM/HICAM data bases) and at the record level (for HISAM 
data base). Module DLZQUEFO provides the control through 
enqueue/dequeue mechanisms using a unique 7-byte resource identifier: 


Bytes 1-4 + a relative byte address (RBA) associated with the 
resource 


Bytes 5-6 - the DMB number 

Byte 7 = the ACB number 
The RBAs used are: 

For segment level resources - RBA of the segment 

For record level resources ~ RBA+1 of the root segment: 
For variable length segments where data separation has occurred, the 
segment is considered a single entity with an ID based on the RBA of the 
' prefix. | | 
The queuing facility module will automatically update the RBA portion of 
the resource ID in the event of a VSAM CI or CA split (HISAM only). The 
module also contains a deadlock detection routine and will resolve the 


deadlock by terminating one of the tasks involved. 


Three basic control blocks are used to accomplish the enqueue/dequeue 
function: 


1. PST/PPST - used to identify the task. 
2- RDB = ue to describe a particular resource. 


3. RRD - eee to describe a particular task's request (either 
Satisfied or pending) for a resource. 


AS shown in Figure 3-6, the RDBs are chained together, both forward an 
backward, to cne of several queue heads located in the QWA (queuing 
facility work area). Note that the queue heads have only a forward 
pointer. The proper queue head is determined by hashing the resource ID 
and using the results as an index to the table of queue headers. 
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There is one RDB for each resource, no matter how many tasks (maximum of 
255) have enqueved it. The RRBS are forward and backward chained on two 
queues, One from the RDB and one from the PST for the requesting task. 
There is One RRD for each resource a task has or is requesting. 


On entry to module DLZQUEFO, register 1 contains the PST address and 
register 15 contains the entry point address (high-order byte contains 
"FLAG" if specified). The function requested (enqueue, dequeue, verify, 
or purge) is contained in the PSTFNCTN field of the PST. If the 
requested function is enqueue, dequeue, or verify, the PSTQLEV and 
PSTWRK2 fields also are initialized in the PST. These fields contain 
the queue request level (read-only, update, or exclusive) and the 
address of the resource ID, respectively. See Appendix D for the macros 
used to request a specific function. 


Enqueuve and verify function are essentially the same and are, therefore, 
processed ky the same routines. The only difference between them is 
that the user is not the owner of the resource at the return from a 
verify request. 


Three conditions can be present for the processing of the enqueue and 
verify function: | 


1. The resource is not currently enqueued (no RDB exists) and is 
therefore, available. In this case, if the requested function is 
enqueue, the user is queued as Owning the resource and control is 
returned to the caller. If the requested function is verify, 
processing is complete. | 


2. The resource is currently enqueuved, but is available at the 
requested level. In this case, the user is queued as an owner at 
that level and control is returned to the caller. : 


3. The resource is not available. In this case the user is queued as 
waiting for the resource, deadlock detection is performed, and a 
CICS SUSPEND is issued pending the availability of the resource. 


When the wait is satisfied and if the request was for an enqueue, 
control is returned to the user. If, however, the request was fora 
verify, the user is first dequeued (see dequeue function) as owner 
of the specified level kefore he is given control. 


DCequeue function processing first determines if the resource is 
currently owned by the requestor. If it is not, the request is ignored. 
If it is, the enqueue count at the specified level is decremented. If 
all levels are now zero, task ownership is relinquished, and any waiting 
tasks that may now own the resource are promoted. If FLAG was 
specified, it is set for all waiting tasks. 


If the enqueue count goes to zero and it was the highest level, but 
lower levels still exist, the ownership level is lowered and any waiting 
tasks that may now own the resource are promoted. 


Purge function processing searches the chain of RRDs queued off the 
specified PST for a task and unconditionally relinquishes ownership for 
all resources encountered. Any waiting tasks that may now own the 
resource are promoted. 


On return from module DLZQUEFO, return codes are set in register 15 and 
in the PSTRICDE in the PST. 
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QH1 


RDB1 RDB2 


PST1 RRD1 | | r 


PST2 RRD2 ; , 


Figure 3-6. Enqueue/Dequeue Control Block Relationships 
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QH2 


RDB3 


RRD4 


The following table identifies the mainline routines and the functional 
subroutines of the queuing facility module: 


Mainline Routines 


Routine 


Function 





QENQDEQ 
QRETURN 
QENQVER 
QNRENQ 
QERENQ 
QREENQ 
QDEQ 


QDEQVER 
QRELRSC 


QPUR 


DLZJRNAD 


Common Entry Logic 

Common Exit Logic 
Enqueue/Verify Mainline 

New Resource Enqueue/Verify 

Existing Resource Enqueue/Verify 
Re-enqueue or Verify of Resource Already Owned 
Degqueue Mainline 

Dequeue Specific RRD 

Relinguish Ownership of Resource 
Dequeue all Resource for a Task 
Update Routine for RBA on CI or CA Split 


Functional Sukroutines 


Routine 


QLOCRDB 
QLOCRRD 
QBLCRDB 
OBLDRRD 
QUCFRDB 
QDASOWN 
QWAIT 

QLOCNPO 
QPNOWCM 
OP FLAGP 
QDLKLCTIN 
QDLKRSV 
QGETELK 
QRETELK 


Data Areas Used 


sco 
PPST 
PST 
RDE 
RROD 
QWA 


Entry Points 
CENCDEQ - 


Function 


Locate RDB or Position on Chain 

Locate RRD or Position on Chain 

Build, Initialize, and Chain RDB 

Build, Initialize, and Chain RRD 
Unchain and Free RDB 

Define Task as Owner of Resource 

Wait for Ownership of Resource 

Locate New Prime Owner : 
Promote New Cwners, Do Wait Chain Update 
Pass Flag Parameters To Waiting Tasks 
Detect and Resolve Deadlocks 

Resolve Deadlocks | 

Get 24-Byte Block from Free Chain 
Return 24-Byte Block from Free Chain. 


General entry point for request to enqueue, dequeue, or 
verify a resource, or to purge enqueues for a task. 


DLZJRNAD - Entry point to update the RBA portion of any resource IDs as 


required due to data movement during a VSAM CI or CA split 
(HISAM only). | 
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DLZCPY10 - FIELD LEVEL SENSITIVITY COPY 


DLZCPY10 has two entry points: DLZCPY10 and DLZSEGCV. 


The function cf CLZCPY10 is to map the user view of a segment into its 
physical’ view for DL/I ISRT and REPL calls, in support of field level 
sensitivity. On a path call, DLZCPY10 maps the segment at each level of 
the path. If a level in the path is not field sensitive, the segment at 
that level is moved without modification. DLZCPY10 is invoked by Call 
Analyzer (DLZCLAOO). . 


The function of DLZSEGCV is to convert a segment from either the 
physical view to the user view, or the user view to the physical view. 
DLZSEGCV is invoked by DLZCPY10 to convert ISRT and REPL calls from user 
view to physical view. DLZSEGCV is invoked by Retrieve (DLZDLROO) to 
convert Get calls from physical view to user view. DLZSEGCV is also 
invoked ky Retrieve to convert SSA values from user view to physical 
view. 


Interfaces - DLZCPY10 
This module interfaces with the following module: 


DLZDBHOO 


Register Contents at Entry 


Ri = PST address (DLZCPY10) 
FER address (DLZSEGCV) 
R5 = SDB address (DLZSEGCV) 
R13 = Save area address 
R14 = Return address 
R15 = Entry point address (DLZCPY10) 


Addr (DLZCPY10)+4 ~ (DLZSEGCV) 


Control Blocks - CLZCPY10 





SDB PSB 
SDB Exp. PCB 
FSB JCB 
FER LEV 
FERT PSDB 
PST FDB 
SCD SEC 
PLCIR DDIR 
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MPS CONTRCL MCDULES 


DLZMSTRO - START MPS TRANSACTION 

This module is invoked by the user via a specific transaction code 
(CSDA) to start multiple partition support (MPS). The responsibilities 
of this module are to: 

e check if the DL/I nucleus is loaded. 

e Check if MPS is already active. 


e Attach the master partition controller (DLZMPCOO). 


Control Blocks Addressed 


CSA-Common System Area (CICS/VS) 
SCD-Syster Contents Directory 


Register Contents 
R13 Contains CSA address 


DLZMPCOO + MASTER PARTITION CONTROLLER (MPC) 


The master partition controller (MPC) is attached by the start 
transaction module (DLZMSTRO). 


The functions performed by the master partition controller are: 
e Initialize the MPC partition table (DLZMPCPT). 
e Define all XECBs required for cross partition communication. 


e Process all start batch partition controller (BPC) requests and 
attach a BPC for a specific katch partition. 


e Process all stop partition requests. 


e Process the abend condition if the batch partition controller attach 
fails. 


e Process the stop transaction request to terminate MPS. 


e Return control to CICS/VS after all activity is completed. 


Control Blocks Addressed 


MPCPT MPC Partition Table 

SYSCOM System Communication Region 

CSA Common System Area (CICS/VS) 
SCD System Contents Directory 
MPCECBLT CICS ECB Pointer List 

COMREG Partition Communications Region 
TCA Task Control Area 


Register Contents 
R12 Contains TCA address (at entry) 
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R13 


Contains CSA address (at entry) 


Macros Used. 


DFH 


KC TYPE=WAIT 


DFHKC TYPE=ATTACH 


DFH 


XEC 


XEC 
XEC 
XPO 


DLZ 
The 


con 
par 


ares 


KC TYPE=RETURN 
ETAB TYPE=CHECK 
ETAB TYPE=DEFINE 


BTAB TYPE=DELETE 
ST 
BPCO0 - BATCH PARTITION CONTROLLER (BPC) 


batch partition controller (BPC) is attached by the master partition 
troller (MPC) when a start request has been made by a batch 
tition. The functions performed by the batch partition controller 


Define XECE for cross partition communicution with the MPS batch 
initialization (DLZMINIT), MPS batch program request handler 
(DLZMPRH), and MPS batch termination (DLZMTERM). 

Issue the DL/I scheduling call on behalf of the batch partition. 
Process all DL/I calls on behalf of the batch partition. 


Process ABEND conditions occurring in the batch partition. 


Return control to CICS/VS for normal and abnormal conditions 


This module must be link-edited with the iaguaae interface module, 
DLZLIO000. 

Control BiceKS: Addressed 

MPCPT MPC Partition Table 

TCA Transaction Control Area 

TWA Transaction work Area 

PST Partition Specification Table 

PPST Prefix PST © 


DLZ 


XCB1 DL/I Parameter List 


Register Contents 


R12 
R13 


Mac 


Contains ICA address (at entry) 
Contains CSA address (at entry) 


ros Used 


DFH 
DFH 


KC TYPE=WAIT 
KC TYPE=ATTACH 


DFHKC TYPE=RETURN 
XECETAB TYPE=CHECK 


XECBTAB TYPE=DEFINE 

XECETAB TYPE=DELETE 

XPOST 
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DLZMPIOO - MPS BATCH 


The MPS batch module is made up of the following five routines: 
1. MPS Batch Initialization (DLZMINIT) 

2. MPS Batch Termination (DLZMTERM) 

3. MPS Batch Program Request Handler (DLZMPRH) 

4, MPS Batch Abend (DLZMABND) 

5. MPS Batch Message Writer (DLZMMSG) 


A separate description for each routine is given in the following text. 
MPS Batch Initialization - DLZMINIT 


This is one of five routines that make up module DLZMPIOO to support the 
katch part of MPS. 


DLZMINIT reads the input parameter statement and checks it for validity. 
It then loads the user's program. Then it determines what to use as a 
partition identifier by checking the PIK in the BG COMREG. This value, 
modified and made printable, is put into each XECBTAB macro issued. 


After saving the program name and PSB name for use by online, an XECB, 
DLZXCBnl, is defined in the batch partition for communicating with the 
Online partition. The online partition XECB (DLZXCBn0, with n being the 
identifier) is xPposTed. This lets the online partition know that there 
is an MPS batch job ready to run in this batch partition. 


When the Online partition completes its initialization, the batch 
routine sets up STXIT routines, finishes other initialization 
activities, and goes to the user program. 

DLZMINIT is entered by DOS/VS job control at the start of the job. 


Control Blocks Addressed 


MPCPT MPC Partition Takle 

TCA Transaction Control Area 

PST Partition Specification Table 
COMREG Communication Region 

XCBl XECB DLZXCBnl and data following it 


DTFs for SYSLST, SYSLOG, and SYSIPT 
STXIT AB Savearea 

STXIT PC Savearea 

XECBS DLZXCBnO0O, DLZXCBn2, DLZXCBn3 


Register Contents (at Entry to Other Routines 


e User Program 3 

R1 PCB list if not PL/I; or a pointer to a list containing 
the following if PL/I: 
- address of PCB list 
- address of location containing size of dynamic Sporn 
- address Of start of dynamic Stonage » 

R13 Save area 

R1G Return address 

R15 Entry address 


e Message Writer (DLZMMSG) 
R14 Return Address 


e ABEND Routine (DLZMABND) 
No special register values 


Licensed Material - Property of IBM 3-63 


Macros Used 


XECEBTAB TYPE= DEFINE 
XECBTAB TYPE= DELETE 
XECBTAB TYPE= CHECK 
XPOST 

XWAIT 

OPEN 

CLOSE 

GET 

PUT 

CANCEL 

STXIT PC 

STXIT AB 

MVCOM 

COMRG 

LOAD 


MPS Batch Termination - DLZMTERM 


This is one of five routines that make up module DLZMPIOO to support the 
katch part of MPS. 


The MPS Latch termination routine is entered when the user program 
finishes. It tells the online partition to do termination activity, 
deletes its own XECB, and ends the job. 


Control Blocks Addressed 


XCBl1 XECB DLZXCBnl and the data following it 


Register Contents 


Registers have the same values at entry as when MPS batch initialization 
(DLZMINIT) completed. 


Macros Used 


XPOST 

XWAIT 

EOJ 

XECBTIAB TYPE=CELETE | 


MPS Batch Program Request Handler -DLZMPRH 


This is one of five routines that make up module DLZMPIOO to support the 
batch part of MPS. 


The MPS Latch program request handler routine is entered on each call to 
DL/I made by the user program. The user call list is validated and set 
up for the online partition to use. Then the online partition is 
notified ky an XPOST Of XECER DLZXCBN2. When the call is complete, data 
is moved to the user’s I/O area. a 


control Blocks Addressed 


MPCPT MPC Partition Table 


TCA Transaction Control Area 
PST Partition Specification Table 
XCB1 XECE CLZXCB1 
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Register Contents 


e At entry: 
RO If=l1, PL/I; if=0, not PL/I and value is ignored 
Rl If PL/I, points to list of pointers to parameters; 
if not PL/I, points to list of parameters 
R13 Save area | 
R14 Return address 
R15 Entry address 


e Message Writer (DLZMMSG) 
R14& Return address 


Macros Used 


STXIT PC 

XPOST 

XWAIT 

XECETAB TYPE=CHECK 


MPS Batch ABEND - DLZMABND 


This is one of five routines that make up module DLZMPIOO to support the 
katch part of MPS. 


The MPS kEatch abend routine has three entries: 

1. PC STXIT 

2. AB STXIT | | 

3. Other MPS katch routines that cause abnormal termination. 

The first two each identify which way the abend routine was entered. 
They then send an error massage. Then the third entry joins them as the 
online partition is notified. All entries delete the batch XEFCB and 
cancel or dume. 


When an aknormal termination situation has occurred, DLZMABND is entered 
by: 


e CLZMINIT 

ee CLZMTERM 

e DLZMPRH 

Control Block Addressed 


STXIT AB Save area 
STXIT PC Save area 


Register Contents 


e At entry 
No special values except base registers initialized 


® Message Writer (DLZMMSG) 
R14 Return address 


Exits 


JDUMP If dump requested 
CANCEL If no dump requested 
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Entry Points 


STXIT AB If abnormal end entered ky DOS/VS 
STXIT PC If program check determined by DOS/VS 
XPOST Entry Other abnormal end when BPC must be notified 


Macros Used 


XPOST 
XECEBTAB TYPE=CDELETE 
JDUMP 
CANCEL 


MPS Batch Message Writer ~- DLZMMSG 


This is one of five routines that make ‘up module DLZMPIOO to support the 
batch part cf MPS. 


The MPS batch message writer routine handles all messages issued by the 
MPS Latch partition. At entry, a parameter list is set up. The first 
parameter is always a pointer to the message number. Other parameters, 
if any, are as needed for the message. 


When a message is to be written to SYSLOG and/or SYSLST, the DLZMMSG 
routine is entered by: | 


e DLZMINIT 
e DLZMTERM 
e LCLZMPRH 

e DLZMABND 


Control Blocks Addressed 





DIFs for SYSLCG and SYSLST 


Register Contents 


e At entry: 
R14 Return address 
Base registers already initialized 


e At entry to message table (DLZMMSGT): 


R1 Points to parameter list 

RY Rase register for DLZMMSGT 

R5 Address of where message is tc be placed 

R7 Length of message set up before calling DLZMMSGT; 
after call, R7 has total message length 

R9 Points to PST (for checkpoint message DLZ105I1) 


R10 Second base register for DLZMMSGT 
Exits 
To calling routine via branch register 14 
Macros Used 


PUT 
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DLZMSTPO - STOP MPS TRANSACTION 

This module is invoked when a user wants to stop MPS. The user inputs a 
specific transaction code (CSDD) defined to initiate the stop 
transaction processing. The module then notifies (XPOST) the particular 
XECB that causes the MPC to end the MPS environment. 


After the XPOST, the MPC allows batch jobs already executing to 
complete, but will not allow any new ones to start. 


This transaction should be started before CICS/VS non-immediate shutdown 
is initiated. 


Macros Used 


XECBTAB TYPE=CHECK 
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DATA PASE RECCVERY UTILITIES 


DLZBACKO ~- BATCH BACKOUT: INTERFACE 


The katch bcackout interface module reads and validates any ‘LI' control 
statements from SYSIPT. A log input specification table describing each 
log file to ke processed is created. The module then reads the DL/I log 
files and passes the data base log records to the data base backout 
module (DLZRDRECO) for processing. 


By reading the log files in a backward mode, this module is able to 
process the data base records in reverse sequence without using an 
intermediate work data set. When a block is read in, it is searched and 
the sequence field located at the end of each logical record is replaced 
by the length of that logical record. With the length thus in the back 
of a record as well as in the front, it is deblocked and spanned. 


The interface process includes the following record types: 


X'07* + Application program termination record 
X*08" - Application program scheduling record 
X"41* = Checkpoint record 

X*50"° - Data base log record 

X*°51° + Data base log record 


The katch bkackout utility is executed under DL/I control as an 
application program. Processing of module DLZBACKO is as follows: 


1. Control is received from DL/I initialization and the PSB name is 
obtained from the parameter data. 


2- The log file is Opened to be read backward. 


3- The log file is read backward and records bypassed until the first 
data kase log record for the PSB is obtained. 


uo An application program termination record (X'07") for the PSB 
indicates no backout necessary, the message “BACKOUT COMPLETE" is 
issued at SYSLOG, the log is closed, and the job is terminated. 


So Data -kase log records (X*°50* and X‘"51") are passed to module 
DLZRDECO to be processed against the appropriate data base. 
Processing terminates when an application program scheduling record 
or a checkpoint record is read, the message “BACKOUT COMPLETE" is 
issued at SYSLOG, the log is closed, and the job is terminated. 


If end of file is reached on the log (i.e., the header record is read), 
it is closed. If more log files are to be processed, the above process 
is repeated starting at step 2. Multiple log files must be processed in 
reverse order of their creation. When all log files are processed, a 
“BACKOUT CCMPLETE™ message is issued and the job step is terminated. 

The job is terminated by returning control to DL/I which purges all 
kuffers, closes all DMBs, and closes the output log file. 


Register Contents on Entry 


Ri = PSB list address 
R13 = Save area 
R14 = Return 
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R15 = Entry point 


Control Blocks - DLZBACKO 


Application program scheduling record 
Application program termination record 
Checkpoint record 

Lata base log record 

DMB 

PCIR 

PSB 

PST 

SCD 


External Modules Called 


CDLZRDBCO = Called to interface with DL/I and perform backout. 


Record and Message Formats - DLZBACKO 


All messages are sent to the SYSLOG and SYSLST devices. The messages 
are contained in module DLZRACMO. 


DLZRDBCO - DB CHANGE BACKOUT 


This module receives control from DLZBACKO with a log record to process. 
It calls open/close (DLZDLOCO) to open the DMB specified in the record 
unless the data base is already open. The buffer handler (DLZDBHOO) is 
called to retrieve the KSDS or ESDS block as indicated by the key or the 
ESDS relative block number or relative byte address. 


The data in the buffer is replaced with the ‘old’ information in the 
log, thereby nullifying the offending programs update. In the case of 
HD, when a physical delete or insert record is processed, space 
Management (DLZDHDSO) is called to update the free space elements and 
bit map, if necessary and to build the input data for the data base 
logger. DLZRDBLO is called to record the changes made to the data base. 


The kuffer handler is then called again to mark that buffer altered and 
control is returned to DLZBACKO. 


Register Contents and Control Blocks on Entry 


Ril = PST address 
R13 = Save area 
R14 = Return 
R15 = Entry point 
PSTSCDAD = SCD address | 


ADDRLOG = Address of data base log record within DLZBACKO 
PSTDGU & PSTDGN must be zero on initial entry 


Control Blocks - DLZRDBCO 


Data base log record 
CCIR 
DMB 
CSG 
PCB 
PCIR 
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PSB 
PST 
SCD 


External Modules Called 


CLZDBHOO - Called to read a data base record and to mark the 
buffer altered 
DLZDHDSO - Called to free or reserve space in an HDAM or 


HIDAM record 
DLZDLCCO - Called to open data base 
DLZRDBLO = Called to log backout modifications to data base 


Interface with External Modules 


All modules expect R14 +# R15 to contain return address + module 
entry point address. 


DLZDLOCO 


R1 = address of PST 
R2 = address of DDIR entry for DMB to be opened 


PSTDSGA = address of DSG to open 

PSTFNCIN = PSTOCDMB + PSTOCOPN- 

SCDCWRK = address of normal log record work area 
DLZCDBHOO 


R1 = address of PST 


PSTBLKNM 


= RBN if HD ESDS 
PSTACBNC = 1 
PSTDMENC = 1 ee 
PSTBYTNM = RBA if HISAM ESDS or address of key if KSDS 
PSTFNCIN = desired function 
DLZCHDSO 
R1 = address of PST 
R5 = address of PSDB of segment 
PSTOFFST = offset to segment from beginning of block 
PSTCODE1 = indicates backout in control (for logger) 
PSTFNCTN = PSTFRSPC + X'80° (to show backout in control) 
CDLZRCDELO 
RO = SCD address 
R1 = PST address 
PSTCODE1 = PSTINTNT + PSTSCHED to indicate backout calling. 
PSTDATA = address of data in buffer 
SCDCWRK = address of backout log work area containing the 


control information for this log record 


Register Contents on Exit 
All registers are restored with the exception of register 15 which 


contains a return code. If this code is non<zero, DLZBACKO will sind 
and type the appropriate error message. 
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Error Codes and Handling - DLZRDBCO 


All error codes are passed to DLZBACKO in register 15. 


DLZURDBO ~- DB DATA SET RECOVERY 


The data kase data set recovery utility module DLZURDBO is executed 
under DL/I control as an application program. Control is passed to 
DLZURCBO from DL/I initialization. This module is comprised of two 
independent but logically related functions. The first consists of an 
image dump and a change accumulation processor. The PCB address is 
saved, and a GSCD call is issued to obtain the PST address. Control is 
passed to DLZURCCO to read and process control statements from SYSIPT. 
From information saved by DLZURCCO, a DMB is loaded from the Core Image 
Library -to obtain the physical characteristics of the data set to be 
recovered. The DL/I open/close routine (DLZDLOCO) is called to open 
the output ACB and the input file is opened. Then the program enters a 
dump/cum data merge routine. This routine selects a dump record, merges 
any accumulated changes from the cum data set, and a call is made to the 
buffer handler (DLZDBHO00) to write the new record to the output data 
set. Upcn completion, a partial or completely recovered data set may 
exist. If no additional changes are to be applied through log files, 
the program calls the DL/I Open/close routine (DLZDLOCO) to close the 
output ACE and terminates. 


If additional changes are to be applied from log files, the program 
enters the second function. This routine opens the logs, scans the log 
to find a reccrd that applies to this data set, and merges the data from 
the log to the data set record. Upon completion, the routine does post- 
processing and a recovered data set then exists. 


The operation of this routine depends on certain DL/I functions to 
process the logs. The log is scanned for a matching data base/data set 
name record. When one is encountered, the record ID, either a key of a. 
KSDS record or a relative Llock number of an ESDS record is saved, and a 
call is made to the buffer handler (DLZDEH00) requesting that the record 
be retrieved. Upon successful return, the log record data is merged 
with the returned record, and a call is made to the buffer handler 
requesting that the record ke marked as altered to cause rewriting. The 
records from the log are thus processed until an end of file is 
encountered on the log input. At this time, a call is made to the 
buffer handler requesting that all altered buffers be purged, that is, 
that all records that have been altered be rewritten. The program then 
calls the DL/I open/close routine (DLZDLOCO) to close the oat RUe ACB, 
and the program terminates. 


Blocks and Takles - DLZURDBO 
This module utilizes certain DL/I blocks, including the PST, DSG, DMB, 
DMB directory, SDB, PCB, JCB, and SCD. Additionally, several record 


formats are used as follows: 


1. HISAM reorganization header and data records. See HISAM 
reorganization unload (module DLZURULO) for details. 


2. Lata base image dump header and data records. See data base data 
set image copy module (DLZUDMPO) for details. 


3. Accumulated change CUM header and data records. See change 
accumulation module (DLZUCUMO) for details. | 
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4, CLata base change log records. 


Normal Entry Points 
The only entry point to this module is DLZURDBO. 


Register On Entry 


R1 = pointer to fullword containing address of PCB 


Registers On Exit 


All registers are restored to entry conditions. 


Modules Called by DLZURDBO 


The recovery control statement processor (DLZURCCO) is called to read 
and validate any input control statements. 


R1 = pointer to recovery common area 

The DL/I open routine (DLZDLOCO) is called to open a specific ACB. 
R1 = pointer to PST 

The DL/I buffer handler (DLZDBH00) is called to retrieve and write a 


specific record, mark a buffer altered, and purge (rewrite) all altered 
buffers. 


R1 = pointer to PST 

The CL/I close routine SEEZULOe) is called to close a specific VSAM 
ACB. 

Ri = pointer to PST 


Error Codes and Handling - DLZURDBO 


All codes are in the form of messages. The module DLZRDBMO contains all 
error messages issued by the Data Base Data Set Recovery Utility. 


DLZURCCO = Recovery Control Statement Processor 


This module reads and validates the input control statements from 
SYSIPT. The "S* control statement describes the data base to be 
recovered. The "LI" control statements describe the log files to be 
processed. Information from these statements is saved in the recovery 
common area for use by DLZURDBO. 


Normal Entry Point 
The only entry point to this module is DLZURCCO. 


Registers on Entry 


Rl = pointer to recovery common area. 


y aN 
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Registers on Exit 


All registers are restored to entry conditions except R15, which 
contains a return code (see below). 


Error Codes and Handling 


Messages are issued to SYSLST and SYSLOG for any invalid control 
staterents. On return to DLZURDBO, R15 is set as follows: 


R15 = 0 - No errors 
R15 = 4 = No input control statements 
R15 = 8 = Input control statement error 


DLZUDMPO + DB DATA SET IMAGE DUMP 

The data kase data set image copy utility module DLZUDMPO is executed as 
a Standard DOS/VS application program and creates a backup copy of a 
specific data hase data set. Input may be either a KSDS (HISAM, Simple 
HISAM, or HIDAM INDEX) or an ESDS (HISAM, HIDAM, or HDAM). The output 
is used as input to the data base data set Reeve utility. Rees ene 
is as follows: | 


1. A control card is read from SYSIPT and preliminary validity checking 
is performed on various fields. The input card defines the data 
kase/file to be dumped, the dump output ob acataeaal Filenames, and the 
number of output copies to ke created. 


2. The device type is determined for each output file specified and the 
file(s) are opened. 


3.2 The DMB is loaded from a core image library to obtain the physical 
characteristics of the data base file to be dumped. 


4, A header record is written to the output file. This record contains 
information necessary to allow the use of the image dump file by the 
data base data set recovery utility. 

5. The input file is opened. 

6.2 Input segments are read sequentially, an 8-~-byte prefix is added to 
identify the segment, and the logical record (prefix + segment) is 
blocked and written to the output file. ; , 


7. After all segments have been copied (EOF), the input and output 
files are closed. | 


8 Output statistics for the file are written to SYSLST. 

9. Processing continues from step 1 until there are no more input cards, 
at which time the program terminates. 

Control Blocks - DLZUDMPO 

e Cump record prefix 


e Dump header record. 
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Error Codes and Handling - DLZUDMPO 


All error ccdes are in. the form of messages to SYSLST and SYSLOG. All 
the messages used by the DB Data Set Image Dump Utility are contained in 
module DLZDMPMO; a read-only CSECT. 


DLZUCUMO - DB CHANGE ACCUMULATION UTILITY 


The data base change accumulation utility module DLZUCUMO is executed as 
a standard DOS/VS application program. DLZUCUMO controls the overall 
Operation of the Data Base Change Accumulation Utility. First, the 
control card processor module (DLZUCCTO) is called to read the input 
stream. Upon its return, the PROCFLAG switch is tested. If records are 
to be passed to sort, the sort parameter list is formatted, including a 
sort Exit 15 (DLZUC150) and the sort Exit 35 €DLZUC350). The sort 
program is then loaded, and this module (DLZUCUMO) waits for it to 
terminate. Upon termination, a completion code is tested and 
appropriate messages are provided as output. If records are not to be 
sorted, that is, no DBO type control cards were read, the module calls 
the Exit 15 module (DLZUC150) to create the new log file. If error are 
encountered by any Of the four processing modules, control is passed to 
the common error routine DLZUCERO. 


control piece =~ DLZUCUMO 


e Cata base name table, containing the data base names and the address 
of the date/time table for this entry. 


e Cata/time table 
e Accumulation header record 


e Accumulation record 


Normal Entry Point 


The main entry point to this module is DLZUCUMO. DLZERRTN is an entry 
point used ky DLZUC150 on any error condition. 


Entry Conditicns 


This is the main module which controls the overall eal aca of the Data 
Base Change Accumulation Utility program. 


Control information is passed from module to module. by means of an 
externally referenced table contained in DLZUCUMO. 


DLZUCERO ~ Common Error Routine 


This wodule is the common error routine. Control may be passed to it 
from any of the four processing modules. It addresses a message from 
the message module (DLZCUMM0), depending on parameters passed to it, and 
prints a message to the SYSLST and SYSLOG devices. If the passed 
parameters indicate a multi-part message, it does not write the message 
on the first entry. Instead, it passes the last-used position in the 
output buffer back to the caller to allow the caller to insert special 
data in the messages. On the second entry to this routine, the message 


3-74 Licensed Material - Property of IBM 





is written. All messages issued by the DB Change Accumulation Utility 
are contained in module DLZCUMMO. It is a read-only module. 


Normal Entry Point 
The only entry to this module is DLZUCERO. 


Entry Conditicns 


This module is entered to output all error messages. 


Register Contents on Entry 


Ri contains a message number. R2 is negative if this is a multi-part 
message. (R2 points to last byte of message on second entry of multi- 
part messaqe, ) 


Register Contents on Exit 


All registers are restored to entry conditions except R2, which points 
to last byte of message on first entry return of multi-part message. 


DLZUCCTO = Control Card Processor 


This module is the control card processor. It reads the control card 
input stream, checks the cards for validity, and constructs the data 
base name table and the date/time table if data base names are supplied. 
It also constructs the log input specification table describing the 
input log file(s). 


Normal Entry Point 
The only entry to this module is DLZUCCTO. 


Entry Conditions 


This module is entered to process the control card input stream. 


Register Contents on Exit 


All registers are restored to entry conditions. 


DLZUC150 - Sort Exit 15 


This module is the sort Exit 15 routine. It reads the log input 
records, checks the purge date if applicable, and determines the | 
dispositicn of the record. If the record matches an entry in the data 
base name table, the date/time table is searched and the appropriate 
purge date and time are compared. If the record is before the purge | 
date, the program returns to read another record. If the record is not 
purged, the routing is determined from the table and written either to | 
sOrt or to the new log. A table of DMB names and purge dates is | 7 
prepared for Exit 35. nda 7 
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Normal Entry Point 


This module is entered at DLZUEX15 if no records are to be accumulated, 
and at DLZUC150 by sort. 


Entry Conditions 


This wodule is entered to read input logs and disperse records to new 
log or sort. R1 contains the address of the parameter list from sort or 
a dummy list if control was received from DLZUCUMO. 


Register Contents on Exit 


All registers are restored. 


DLZUC350 - Sort Exit 35 


This module is the sort Exit 35 routine. It receives all records from 
sort. If an old accumulated data set is supplied, a record is read from 
the data set and a record is retrieved from sort. The data base name 
and file identification of the records are compared. All input cum 
records are purge-checked according to the date/time, if any, specified 
on DBO card(s). If the old cum input is low, it is written to the new 
cum data set. If the records are equal, the data from the sort record 
is merged to the old cum record, unless purged, and another record is 
obtained from sort. This sequence continues until an unequal condition 
is detected, at which point the record is written to the new cum data 
set. If the old cum is high, records from sort are combined and written 
to the new cum data set until the compare condition changes. This 
process continues until both the sort and the old cum records are 
exhausted. 


Normal Entry Point 
This module is entered at DLZUEX35 by sort. 


Register Contents on Entry 


Register 1 contains the address of the sort Exit 35 parameter list. 


Entry Conditions 


This module is entered by sort to dispose of all sorted records. 


Register Contents on Exit 


All registers are restored to seutey conditions, with the sort parameter 
list GEeeTSe as needed. 


DLZLOGPO = LOG” PRINT UTILITY 


The log: print utility moduié (DLZLOGPO) is executed as a standard DOS/VS 
application program and prints the contents of DL/I log files. Input 
log files may be either tape or disk. Optionally, the utility can _ 
create an output log tape suitable as input to the backout utility 
module (DLZBACKO). Processing of the log print utility is as follows: 
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| 1. Module DLZLPCCO is called to process input control statements. 
2. If requested, the output log tape file is opened. 


3. The DLZDVCE macro is issued to determine the log device type, and 
the log file is opened. 


4. The 10g records are read and deblocked, and the record types are 
checked to see if valid DL/I record. 


5.2 The log records are printed to SYSLST in either keyword format or 
dump format. 


62 If requested, 10g records are written to output log tape. 


7. The input log file is closed. If more input log files were 
specified, processing continues from Step 3. 


8. If requested, the output log file is closed. 


9. Informational statistics are written to SYSLST and the program 
terminates. : 


Frror Codes and Handling 


All error codes are in the form of messages written to SYSLST and 
SYSLOG. All the messages used by the log print utility are contained. in 
module DLZLGPMO. 


DLZLPCCO - Log Print control Statement Processor 


This module is called by DLZLOGPO to read and process input control 
statements. The control statements are read from SYSIPT and validity 
checking is performed. Valid control statement types are: ‘LO’, ‘LS', 
and "LI". Information from the control statements is Payee in the log 
print common area. | 


Normal Entry eS, 
this module is entered at DLZLPCCO a DLZLOGPO. 


Register Contents on Entry 


Register 1 points to the log print common area. 
Register 9 points to the next available print line buffer. 


Entry Conditions 


This module is entered by DLZLOGPO FO: read and process dnpue control 
staterents. : | | 


Register Contents on Exit 


All registers are restored to entry conditions except register 9, which 
is updated to point to the next available print line buffer. 


Frror Codes and Handling 


All error codes are in the form of messages written to SYSLST and. 
SYSLOG. All the messages used by the log print YERREEY, are Contes vee in 
module DLZLGPMO. | 2 | 
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DATA BASE REORGANIZATION UTILITIES 





DLZURULO - HS DB UNLOAD 


The HISAM reorganization unload module DLZURULO is executed as a 
standard DOS/VS application program. A control card specifying the data 
base name, data set name, and output symbolic unit name is read. The 
DBD specified is loaded, and a short segment table is constructed. This 
table consists of the first eight bytes of each segment table entry in 
the DED. This includes, among other things, the segment physical code 
and the segment length. The size of the prefix, as described for each 
segment type, is added to the segment length and entered in the table. 
This length is later used to mave the segment from the input area to the 
output area. | 


Next, the input and output data sets are opened. A header record 
containing informatjon about the data base data sets is constructed, and 
a statistics record is written. The first KSDS record is then read and 
the root segment is checked to determine whether the deleted flag is on 
(no prefix if Simple HISAM). If it is on, the total segment chain for 
that root is ignored, and the next root is processed. If the root is 
not deleted, it is moved to the output area, and the first dependent 
segment, if present, is processed. If the dependent segment is not 
deleted, it is moved to the output area, and the next segment is 
processed. This continues until the complete dependent segment chain 
for this root, including any overflow dependent segments on the ESDS, 
have been processed. If the segment is deleted, each succeeding segment 
that is a child of the deleted segment is also deleted. The first 
segment that is not a child of the deleted segment causes the normal 
segment processing to be resumed. The last record written is a 
statistics record which includes information needed for audit trail. 

The output data set now contains the reorganized KSDS and ESDS logical 
records in physical sequential format (only KSDS if Simple HISAM). An 
image of the KSDS record containing a root segment and dependent segment 
is followed by images of the ESDS records containing overflow dependent 
segments for the root segment. A chain pointer in the KSDS contains the 
correct relative byte address of the next ESDS record containing 
overflow dependent segments. If more than one ESDS record is needed to 
contain overflow dependent segments, they follow in sequence and chain 
pointers are maintained in the records. 


Error message handling is accomplished in the following manner: When a 
routine within module DLZURULO requires an error message to be 
generated, a number is loaded into R1. This number corresponds to a 
message in the message CSECT (DLZRULMO). The routine then branches to a 
common routine which outputs the message. The number passed in Ri is 
multiplied ky 4 and added to the start of the message CSECT (DLZRULMO).. 
At that offset, a fullword containing the length of the message and the 
offset to the start Of message text is obtained. These values are used 
to move the message to an output buffer. DLZRULMO is a read-only module 
containing all error messages issued by module DLZURULO. 


Control Blocks - DLZURULO 


Short. segment table 
Output data record 
Output header record 
Statistics record. 
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Error Codes and Handling - DLZURULO 


All error codes are in the form of error messages. 


Sample Description of HISAM Reorganized Format 


Assume a HISAM data base which consists of a single root segment and 
dependent segments in the hierarchical format shown in Figure 3-7. 


ROOT | 
SEGMENT 


SEG B 





Figure 3-7. HISAM Data Base with One Root Segment | 
The input for the HISAM sia a aaa Untoed Utility aEREere as shown 


in Figure 3-8. 


KSDS RECORD 


| SEGA 
ROOT SEGMENT (DELETED) 


ESDS RECORD 1 


SEG F 


ESDS RECORD 2 


SEG J | 
(DELETED) _ FREE SPACE — 


Figure 3-8. Input for HISAM Reorganization Unload Utility 










SEG C 
(CHILD OF A). 


SEGB 
(CHILD OF A) 
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Given this input, the HISAM Reorganization Unload Utility provides the 
output shown in Figure 3-9. | 


HEADER RECORD 





INFORMATION ABOUT DATA BASE | 


STATISTICS RECORD 


TOTSEG VALUE = 0 - 


DATA RECORD (KSDS) 







ROOT SEGMENT 





DATA RECORD 2 (ESDS) 


ee 


UNLOADED STATISTICS RECORD | 


TOTSEG=NUMBER OF SEGMENTS UNLOADED FOR SEGMENT LEVEL 


Figure 3-9. HISAM ect gerne Unload Utility Output 


Note: A second ESDS record is unnecessary because Space , occupied by 
deleted segments is reclaimed. 


DLZURRLO - HS DB RELOAD 


The HISAM reorganization reload module DLZURRLO is executed as a 
Standard DOS/AVS application program and is used to reload a reorganized 
HISAM data kase data set group. The input to the program consists of a 
reorganized dump of the key sequenced data set (KSDS) and entry 
sequenced data set (ESDS) created by the HISAM Reorganization Unload 
Utility program. Processing is as follows: 


1. A control card, which contains the filename of the input file 
7 containing the HISAM data base to be reloaded, is read. The input 
file is opened and the header record is read. | / : 
2. The cutput KSDS and ESDS ACBs are generated using the information 
contained in the header record and the KSDS and ESDS are opened © 
(only KSDS if Simple HISAM). | 
3. The statistics record is read and the statistics table initialized. 


4. Records are read sequentially from the input file. These records 
are images of KSDS and ESDS records. 


5.2 KSDS records are written to. the ee aoe KSDS using VSAM keyed | 
sequential (mass) insert. ; 


6.2 ESDS logical records are written to the Se ESDS Sang VSAM 
addressed sequential insert. 


7. After all data records have been processed, the last input 
Statistics record is read, and a statistics report is printed, 
comparing segments unloaded/reloaded. 


8, The files are closed. 
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pe 


All error messages issued by the HS DB reload utility are contained in 
module DLZRRLMO. It is a read-only module. : 


Control Blocks - DLZURRLO 


e Header record 
e Input data record 


DLZURGUO - HD DB UNLOAD 


The HD reorganization unload module DLZURGUO is executed under control 
of the DIL/I system as an application program and is used to unload a 
data base by issuing DL/I calls. One or two files may be created and 
output may ke to tape or DASD. The module contains two processing modes 
- “normal™ and “restart". 


Normal processing, after module DLZURGUO receives control from DL/I, is 
aS follows: 


1. The PCB address is saved and a GSCD call is issued to obtain the PST 
address. The PST allows the program to access the DL/I control 
blocks needed to construct the prefix portion of the output record. 
This prefix, as described below, is used by the HD Reorganization 
Reload Utility. 


22 The numcter of outputs (one or two) and output device type (tape or 
DASD) are determined. 


3. Storage is obtained for the statistics table. 
4. Each cutput file is opened. 


52 The statistics tables, which have been initialized for all data base 
segment types, are written to the output file(s). 


6. A Get Next (GN) call is issued for the first (or succeeding) 
segment. 


7 The statistics table for the segment type is updated. 


8. The segment is combined with the segment prefix to form an output 
logical record. The output logical records are blocked and written. 


9. Whenever a checkpoint interval is reached (first root segment after 
5000 segments have been processed), a checkpoint record is written 
to the output file. The current statistics are part of the 
checkpoint record. To insure the checkpoint record is physically 
written, a dummy checkpoint is also written to output. — Additionally 
a message contartetg the ID of the checkpoint HESOEG is written to 
SYSLCG. | | - 


10. Processing continues at step 6 until end of file is encountered. 


11. At end of file, the statistics table totals are written, the output. 
file(s) is closed, and the program returns control to DL/T. | 


Restart processing, after module DLZURGUO receives control from DL/I, is 
as follows: : 


1, Steps 1 - 4 of "normal processing" are performed. 
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2. The restart (RESTART) input file is opened. This is either the 
output1 (HDUNLD1) or output2 (HDUNLD2) file from the previously 
terminated job execution. 


3. A message is issued to SYSLOG requesting the checkpoint record 
number (ID) at which to restart. The number is validated. 


4. All records, including the requested checkpoint record, of the 
- RESTART file are copied to the output file(s). 


5© A Get Unigue (GU) call is issued for the checkpointed root segment 
to estaklish positioning. If the RBA is available for the root 
segment, it is placed in the SSA with an internal "*T" command code; 
otherwise the segment's key is placed in the SSA and an internal 
"*C" (key retrieve) command code call is issued. The statistics 
table is initialized with the checkpointed statistics record. 


6. Steps 6 - 11 of “normal processing" are performed. 


Control Blocks ~ DLZURGUO 

e Output record containing segment prefix 
¢ SSA for GU call by RBA | 
e SSA for GU call by key 

e Output table record 


e Checkpoint record. 


Interfaces - CLZURGUO 


This module interfaces with DL/I through the DL/I language interface 
module DLZLIOOO at entry point ASMTDLI. 


Error Codes and Handling - DLZURGUO 


All errors are indicated by error messages. All messages issued by the 
HD DE unload utility are contained in module DLZRGUMO. It is a read- 
only module. = 


DLZURGLO - HD DB RELOAD 


The HD reorganization reload utility (DLZURGLO) is loaded under DL/I 
control as an application program. It reloads a data base under control 
of DL/I. Input to the module consists of a sequential dump data set of 
logical records created by the HD reorganization unload utility 
(DLZURGUO). A logical record consists of a segment prefix and a 
segment. | : | | | 


During the reload, a message is issued each time a checkpoint record is 
encountered (approximately every 5000 segments). This message is the 
Same in content and format as that issued during unload when the 
checkpoint record was created, and identifies the checkpoint by number. 
If the reload facility fails, a restart capability called ‘Reload 
Restart" allows restarting from a eHeckeornt record. 


After module DLZURGLO receives control from DL/I initialization, 
processing is as follows: 
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2.0 


30 


Se 


Ba» 


The PCB address is saved, and a GSCD call is issued to obtain the 
PST address. 


The input device type is determined and the data set is opened. 
If restarting, obtain checkpoint restart number from operator and 
locate checkpoint record. The data kase is then positioned (GU 
call) and the end of data is found (GN calls). 


An input record is read (segment), and a DL/I call list is 
constructed. 


A DL/I Insert (ASRT) call is issued for the segment. 


After all segments have been processed, the last statistics table 
record is read and a comparative statistics report is written. 


The input data set is closed, and the program returns control to 
CL/I. 


Blocks and Takles 


Input record 


Interfaces - CLZURGLO 


This module interfaces with the DL/I routines through the DL/I language 
interface module CLZLI000 at entry point ASMTDLI. 


Error Codes and Handling - DLZURGLO 


All error conditions are indicated by error messages. All messages 
issued by the HD DB reload utility are contained in module DLZRGLMO. It 
is a read-only module. | 
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APPLICATION CONTROL BLOCKS CREATION AND MAINTENANCE 


DILLZUACBO - ACE CREATION AND MAINTENANCE 


The application control blocks creation and maintenance utility creates 
the internal control blocks required by the DL/I application program. 
Using the PSB and DBDs as input, this utility creates DL/I internal 
format control blocks as output. These output control blocks must be 
link edited into the DOS/VS Core Image Library, either private or 
system, aS specified by the user. These blocks contain information 
about the data bases and the programs which use them. They describe 
Some device and media characteristics, the stored data structures, and 
the logical data structures as seen by both the system and application 
programs. The program accepts control card input to determine what 
functions are required. 


The logic flow is as follows: The control card input stream is 
processed and each card is syntax-checked. A sorted list of requested 
blocks is built in main storage. Each PSB name specified on the control 
card is inserted into the list. 


Fach name on the constructed build list is then passed to the 
application control blocks builder module DLZDLBLO to have blocks 
constructed. Addresses are relocated relative to zero and the completed 
blocks are written to a SYSPCH or SYSLNK data set. 


Blocks and Takles - DLZUACBO 
Program control parameter block 
PST | 


SCLC 
PCIR 


Interfaces - DLZUACBO 


This module interfaces with the following modules: 
DLZUSCHO - Called to create and search sorted PSB lists 


DLZLBLMO ~ Called to format prebuilt messages 
DLZDLBLO ~ Called to build and output control blocks for a PSB 


Register Contents 


RO=-R1 = PARM registers 

R2-R8 = Work registers 

RY = Pointer to PST 

R10-R11 = Work registers 

R13 = Pointer to save area and primary base register 
R14-R15 = Cperating system linkage registers 


DLZUSCHO = ACB MAINTENANCE BINARY SEARCH/INSERT 


The function of module DLZUSCHO is to create and search sorted lists in 
dynamic (GETVIS) storage using the binary search technique. Any number 
of lists may Le created simultaneously (subject only to the limit of 
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available storage). A list entry may be any length from 1 to 256 bytes. 
The key or sequence field may also be from 1 to 256 bytes in length and 
may be located anywhere in the list entry. The only restriction on keys 
is that they must consist Of a single contiguous string of bytes within 
the list entry. 


The number of entries in any list is limited only by available storage. 
However, Since this routine physically moves data in storage to make 
room for new entries, it kecomes less efficient as the number of entries 
increases. For large numbers of items, it might be best to consider 
sorting the entries in the conventional fashion. 


This module is called by DLZUACERO to build and maintain the list of PSBs 
to be precessed. 


Operation 
I. The following interface is used to initiate a new list: 


L 15,=V(DLZUSCHO) 
LA 1,PARMS 
BALR 14,15 


where PARMS is a 3-word list whose contents 
are as follows: 


word 1 
Word 2 


length of the list entry 

offset from the keginning of the list 
entry to the key/sequence field 
length of the key/sequence field 


Word 3 


On return, register 1 contains the location of the new 
list control block. (This location must be submitted to 
the search routine on all subsequent search or insert 
calls for this list.) | 


IT. The following interface is used to insert an entry into 
a list: 


L 15,=V(CINSRCH) 
LA 1,INPARMS 
BALR 14,15 


where INPARMS is the location of a two-word 
list whose contents are: 


Word i = address of the list control block 
Word 2 = address of the list entry to be 
inserted 


On return from INSRCH, register 15 contains zero if the 
entry was successfully inserted, and register 1 contains 
the location at which the insert was made. 


If the entry was not inserted (because a duplicate was 
found), register 15 contains 8, and register 1 contains 
the location of the duplicate entry. 


IIl. The following interface is used to locate an entry in a 
list created by INSRCH: 


L 15,=V(LOCSRCH) 


LA 1,LCCPARMS 
BALR 14,15 
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where LCCPARMS is the location of a two-word list 
whose contents are: 


word 1 = address of the list control block 
Word 2 = address of the search argument tkey) 


On return from LOCSRCH, register 15 contains zero if an 
entry containing the search argument in its key field was 
found, and register 1 contains the location of this 
entry. 


If no entry was found, Register 15 contains 4 and 
register 1 remains as it was on entry to LOCSRCH. 


IV. The following interface is used to delete all storage 
obtained by OPENSRCH and INSRCH for a given list: 


L 15,=V(CLOSESCH) 
L 1,LOCPARMS 
BALR 14,15 


where LOCPARMS contains the location of the list control 
block for the List to be deleted. 


control Blocks - DLZUSCHO 
e List control block 


e Sorted list block. 


Programming Note 


If some number of entries have been placed ina list through repeated 
calls to INSRCH, they can be retrieved in sorted order by locating the 
first block by way Of CHAINLOC and all subsequent blocks by way of their 
CHAIN fields. The entries are in order (low to high logical sequence) 
with the lowest entry in block 1 entry 1, next in block 1 entry 2, etc., 
with the highest entry located in the last-used slot in the last block. 





DLZLBLMO_ ~- ACB Generation Error Message Handler 


This module is used to contain, select, and format error messages for 
the ACB generation facility. Given a message number in register one, 
the module will select the matching message and format it by inserting 
an arbitrary number of additional character strings addressed by 
Specified registers. The ‘PRIMSG' routine in module DLZUACBO is called 
to print the message. Control is returned to the caller. 


Register. Contents on Entr + DLZLBLMO 





R1l - Messagé number 
R13 ~- Save area 

R14 - Return address 
R15 - Entry point 


a 


Additionally, any registers are passed that have been defined to contain 
pointers to character Strings to be inserted into the message. These. 
are generally (but not always) registers 5, 6, and 7. 


MES 
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External Routines Called - DLZLELMO 


PRTMSG - Entry point to the print routine in module DLZUACBO. 


DLZDLELO, DLZCLBL1, DLZDLBL2, DLZDLBL3 ~ ACB BUILDER 


These four modules are jointly responsible for building all the control 
blocks for a given PSB and its associated DBDs, and for outputting them 
to either SYSPCH or SYSLNK in a format that allows LINKing them into the 
DOS/VS core image library. 


The first module, DLZDLBLO, loads the specified PSB and builds the PCBs 
and SDBs for segments identified via SENSEG statements at PSBGEN time. 
It then passes control to module DLZDLBL1. 


Module DLZDLBL1 loads the DEDs for all referenced data bases and builds 
the associated DMBs (for all but logical DBDs). It then processes the 
SDBs associated with each DBD, copying any required information from the 
physical definitions and building any required generated SDBs. Control 
is given to module DLZDLBL2 when all DBDs have been processed. 


Module DLZDLBL2 finishes the processing of the SDBs. It acquires and 
builds the intent list, including propagation of intent, and initializes 
any field level sensitivity control blocks required. The PCB is moved 
to its proper location and the JCB, level ooo and DSGs are built. 
Control is passed to module DLZDLBL3. 


The last module, DLZDLBL3, builds the index maintenance PCB if one is 
required, performs some additional clean-up, and packages and outputs 
the DMBs and the PSB to either SYSLNK or SYSPCH. If a utility PSB is 
required, module DLZDPSBO is called to build it, and module DLZDLBLO is 
re-called at entry PSBPASS to initialize it. 


Interfaces - DLZDLBLO - DLZDLBL3 


These modules interface with the following modules: 


DLZDPSEO - Called to build a utility PSB 
DLZLELMO - Called to format and write error message 


Register Contents on Entry 


R1 <= PST address 

R13 - Save area address 
R14 - Return address 

R15 - Entry point address 


Register Contents on Exit 





All registers are restored. The return code appears in PSTERCOD of the 
PST. 


PSTERCCD = 0 Valid return — - 
PSTERCOD # 0 Errors encountered 
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DLZDPSBO - UTILITY PSB BUILDER 


This module is called by the application control blocks builder module 
(DLZCDLBLO) to dynamically construct a special utility PSB from a 
specific DBD. The created PSB is in PSBGEN format. A GETVIS is issued 
to obtain storage necessary to create the PSB. The created PSB is 
sensitive to all segments for the data base. 


Register Content on Entry 


Ri - Address of parameter list 
R13 - Save area address 

R14 - Return address of DLZDLBLO 
R15 Entry point 


t 


The parameter list consists of a DBD address and a PSB address. 


Registers on Exit 


All registers are restored except R15 which contains a return code 
passed to DLZDLELO. 


R15 = 0 Valid return 
R15 # 0 Errors encountered 
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DATA BASE LOGICAL RELATIONSHIP UTILITIES 


DLZURPRO - PREREORGANIZATICN 


The purpose of this module is to examine input control cards provided by 
the user, and, based upon the information contained in DL/I control 
blocks, to generate a control data set for use by other programs 
concerned with the resolution of logical and index relationships. 


The input control cards for this program indicate the names of data 
bases that a user wishes to initially load or to reorganize. The 
control blocks for each segment of each data base listed on an input 
control card are examined. For each logical relationship in which a 
segment participates, a prefix resolution check is performed. This 
check consists Of generating a bit map reflecting the prefix fields 
involved in the logical relationship, and then checking the bit map 
against a table that indicates the fields which must be resolved for the 
types of data bases in which the logical parent and the logical child 
reside. For purposes of the prefix resolution check, the type of data 
base is considered to mean an initially loaded data base, a reorganized 
data base, or another data base (not reorganized or loaded, but 
logically related to a data base that is reorganized or loaded). If the 
bit map and the table entry match yields a nonzero value, prefix fields 
must be resolved in either or both the logical parent and logical child. 


If prefix fields must be resolved, a control list entry is built for the 
logical parent and/or the logical child, This control list entry 
indicates the fields to be resolved, the work data set record format 
options to use, etc. AS control data set list entries are built, each 
record is calculated to determine a maximum record length. The largest 
Size is saved and put into field LESRTSZE when the control data set is 
written. The prefix resolution utility (DLZURG10) reads this value and 
passes it to SORT. 


After generating the control list, the data bases to be scanned, loaded, 

or reorganized are listed. The scan list is punched if requested. The. 

control list is then written to the control data set. 

Control Blocks - DLZURPRO 

e Control file consisting of one or more records, each with a pointer 
to the next block of control file and an area containing One or more 
contrcl list entries. 


e List entry. 


e Secondary list entry. 


Interfaces - DLZURPRO 

The interface with the reorganization message module (DLZURGMO) is 
through the tables provided in that module. See the description of that 
module for table format. 


The interface with batch initialization to load the required blocks 
dynamically is accomplished with the DLZBLKLD macro. 


Error Codes and Handling - DLZURPRO 
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This program audits all input control cards and verifies the consistency 
of CL/I control blocks. Any errors encountered cause one or more 
messages to be generated. Refer to DL/I DOS/VS Messages and Codes for 
details. 


DLZURGSO ~ DB SCAN 


This module searches one or more data bases for all segments that are 
involved in logical relationships. For each such segment, DLZURGSO 
generates one or more output records, depending upon the relationships 
in which that segment is involved. The output work data set of this 
program serves as one of the inputs to the prefix resolution utility. 


This program scans data bases as indicated either by scan control cards 
or by the control data set generated by the prereorganization program. 
If scan control cards are present, they are checked for consistency with 
the DL/I control blocks. Data base scanning is done by segment type for 
HDAM and HIDAM data bases. If scan control cards are provided for 
segments in an HDAM Or a HIDAM data base, work data set records are 
generated only for those segments listed on scan control cards. 


After the segments are read into core, control is passed to the work 
Gata set generator module (DLZDSEHO). DLZDSEHO generates any necessary 
output work data set records based upon information contained in the 
control data set. It then returns control to this program (DLZURGSO). 


Interfaces - CLZURGSO 


Module DLZURGSO interfaces with the reorganization message module 
(DLZURGMO) through the tables provided in that module. See the 
description of that module for table format. 


The interface with the work data set generator module (DLZDSEHO) is as 
described in the documentation for that module. 


The interface with the buffer handler module (DLZDBHOO) is as described 
in the documentation for that module. The buffer handler module is used 
to directly access records in a data base. 


The interface with batch initialization to load the required blocks 
needed for processing is accomplished with the DLZBLKLD macro. 


Error Codes and Handling ~- DLZURGSO 


This program audits all input control cards and verifies the consistency 
of DL/I control blocks with the control data set. Any errors 
encountered cause one or more messages to be generated. Refer to DL/I 
DOS/VS Messages and Codes. 


ABENCs ~- DLZURGSO 


If an input card is read with “ABEND" in columns 1-5, a dump (PDUMP) 
will be taken if an error condition is detected. This should always be 
done on a rerun of this utility if an APAR is to be submitted because of 
an error return code. ; 
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DLZDSEHO - WORKFILE GENERATOR 


This module generates the work file records that are required to resolve 
logical and/or index relationships after one or more data bases have 
been initially loaded or reorganized. This program is used by the HD 
reload (DLZURGLO) and scan (DLZURGSO) utility programs provided by DL/I 
DOS/VS. It is also called automatically by internal DL/I modules 
(DLZDDLEO and DLZDXMTO) when a data base is initially loaded ky a user- 
written program. 


The general operation of this program consists of creating one or more 
work file records for each segment that is initially loaded, reloaded, 
or scanned, if that segment is involved in at least one logical or index 
relationship. The work file records reflect the new location of each 
segment and, if the data base is being reloaded, its old location. Each 
work file record also contains related information that indicates the 
data bases and segments involved in the logical or index relationship 
described by the record, their old pointer values, etc. 


This program generates all work file records that are used as input by 
the data base prefix resolution module (DLZURG10). The format of each 
output record generated by this program (DLZDSEHO) is as described for 
input of the data base prefix resolution module (DLZURG10). 


This module contains a CSECT which is also used by scan (DLZURGSO) and 
index, maintenance (DLZDXMTO) to open the work file DTF. Within this 
routine is a subroutine (FINDDTF) which is also used by scan to 
determine the correct DIF (disk or tape) to use for a given file 
depending on the assignment for it. 


DLZCUSEHO is loaded by batch initialization when the PROCOPT is ‘load' or 
when HD reload or scan are to be executed. The primary entry point 
address is found in SCCDDSEHO. The DL/I termination routine will close 
the work data set. 


Interfaces - DLZDSEHO 


The first seven fullwords of the CSECT contain information to be used by 
the modules which interface with DLZDSEHO. These words concern the work 
data set and entry points or addresses needed by scan (DLZURGSO). 


Cispl. from 
Entry Point 


DLZDSEHO Contents 
-28 Base address of this module 
-24 Address of LPLCSV - information needed by scan 
~20 Address of TEST - entry point when called by scan 
-16 Address of FINDDTF - a subroutine used by scan 
=12 Address of OPENWORK - entry point of routine 
to open WORKFIL file | 
-8 Address of work area available to build output 
record | 
-q Address of opened work file DTF. 


If this field is zero, the file is not open. 
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e When invoked during initial data base load or during data base 
reorganization, the following interface is used: 


Entry Point 


DLZBEGIN 


(Address found in SCDDSEHO) 


Register Contents 


R1 

R13 
R14 
R15 


baad 


) 


PST 

Save area 

Return address 
Entry point address 


Control Blocks 


JCBPRESF 
PSTWRK1 


Exit 


- Operation type (FUNCASRT or FUNCISRT) 
= SDB address 


Return to calling program with a return code in register 15. The values 


are; 
0 
4 


8 
12 
16 
20. 
24 
28 


(X*0") = Successful completion 


(x*4*) = WORKFIL could not be opened (IGN was specified). 


This is not an error condition if the user does not 
‘wish to create a work file. 


(x" 8?) = Sort field size exceeded 


(X*C") = GETVIS error occurred 

(x"10") = Invalid DL/I control blocks 

(x*°14") = Length of PCB key feedback area is zero 

(x°18") = I/70 error occurred on WORKFIL or CONTROL data set. 
(x*1ic") = CONTROL or WORKFIL data set could not be opened 


(invalid or unassigned device) 


e When the OPENWORK routine is called by scan (DLZURGSO) or index 
maintenance (DLZDXMTO), the following interface is used: 


Fntry Point 


OPENWCRK 


Register Contents 


R13 
R14 
R15 
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Caller's save area address 
Return address 


Entry point address. 
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Exit 





All registers are restored to entry condition. Return is made to the 
address in R14 plus the displacement 0 if an unknown or invalid device 
is specified or 4 if WORKFIL is successfully opened. 


e When invoked during a data base scan, the following interface is 
used: 


Entry Point 
TEST 


Register Contents 


R3 - Location for prefix parameter list area for seqment just read 
R5 - Secondary list entry 

R6 - PSUB 

R7 - SDE 

RI - PCE 

R10 PST 

R11 Location Of DTF for work data set (must be open) 

R12 - Base address for DLZDSEHO 

R13 Save area for use by DLZDSEHO 

R15 Entry point TEST 


( 


( 


Control Blocks 


PSTWRK1 Byte 0 + Operation type (FUNCIHPS) 
Byte 1-3 SDB address 


Exit 

Return to calling program with return code in register 15 as for entry 

point DLZEBFGIN. | 

e When the FINDDTF routine is invoked by scan, the following interface 
is used: | 

Entry Point 


FINDDTIF 


Register Contents 


RO - System logical unit number in hex 

R2 - Address of disk DTF 

R3 °- Address Of tape DTF (or 0, if not an option) 
R13 - Caller*s save area address 

R14 - Return address 

R15 - Entry point of FINCDIF 
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Exit 
Register 15 « address of chosen DTF 


All other registers are restored to entry conditions. Return is made to 
the address in R14 plus the displacement 0 if an unknown or invalid 
device specified or 4 if successful completion. When error return to 
R14+0 is made, R15 is zero if IGN was specified, or nonzero otherwise. 


DLZURG10 - PREFIX RESOLUTION 


This module accumulates the information generated on work data sets 
during the load and/or reorganization of one or more data bases. It 
produces an output data set that contains the prefix information needed 
to complete the logical and/or index relationships defined for the data 
kase(s). 


Operation of this program centers around at least one and possibly two, 
phases of the DOS Sort/Merge program execution. In the first phase, the 
Sort/Merge program is attached by this program. All work data set 
records generated during data base initial load, reorganization, or scan 
are input to the sort program. All input records are sorted such that 
all work data set records associated with a given occurrence of a 
logical parent follow the work data set record describing that logical 
parent. Cn exit from the first phase sort, this program has available 
the information needed to resolve the logical parent pointers that 
reside in logical children, the counter field and logical child pointers 
in the logical parent, and the logical twin pointers in the logical 
child (if a sequence field is carried in the work data set record). Any 
unnecessary records are dropped before entering the second sort phase. 
The second phase of this program is not executed if only index 
relationships need to be resolved. 


In the second phase of this program, the Sort/Merge program is again 
attached. In this sort execution, the output records from phase one are 
sorted according to data base name and physical location within data 
bkase of each segment that must be updated by the prefix update program. 
On exit from the second phase sort, any remaining logical twin pointers 
are resolved, and further accumulation of logical parent counter fields 
is performed. Any records not actually necessary to update a data base 
are dropped at this time. 


This program uses the control data set generated by the 
prereorganization program ta govern its general operation. That is, the 
lists in the control data set indicate prefix fields to be resolved, 
etc. The pre-reorganization utility also calculates the maximum record 
length for SORT records and stores the size in the control data set 
(LESRISZE). The prefix resolution utility reads this value and passes 
it to SORT. 


Control Blocks - DLZURG10 





e Input work file record - DLZURWF1 


e Output work file record - DLZURWF3 
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Error Codes and Handling - DLZURG10 


This program audits all input work data set records for consistency and 
for correspondence with the control list provided with the control data 
set. Any errors encountered cause one or more messages to be generated. 
Refer to the DL/I DOS/VS Messages and Codes 


DLZURGPO - PREFIX UPDATE 


This module reads the input work data set provided by the data base 
prefix resolution module, reads the data base segment indicated by each 
record of the input work data set, and applies the prefix changes 
indicated by the work data set record to the segment read into main 
storage. 


The input work data set is sorted in data base and segment physical 
location order by the data Lase prefix resolution module (DFSURG10) to 
afford most efficient update of each data base by this module. The 
format of each input record read by this program is as descriked for 
output of the data base prefix resolution module, 


One Or more input work data set records may be present for each segment 
that participates in logical or index relationships. The records are 
successively applied to the prefix of each segment affected, and the 
updated segrent is written to its storage device. The prefix fields 
updated ky this program include the logical parent, logical twin, and 
logical child pointer fields, and the counter fields associated with 
logical parents. 


Interfaces = CPLZURGPO 


The interface with the reorganization message module (DLZURGMO) is 
through the tables provided in that module. See the description of that 
module for takle format. 


The interface with the language interface module (DLZLI000) is as 
described in the documentation for that module. The DL/I “ISRT" and 
“GHU" calls are issued by this program. 


The interface with the buffer handler module (DLZDBHOO) is as described 
in the documentation for that module. The buffer handler module is used 
to directly access records in a data hbase. 


The interface with batch initialization to load the required blocks 
dynamically is accomplished with the DLZBLKLD macro. 


Error Codes and Handling - DLZURGPO 


This program audits all input work data set records for consistency with 
data base control blocks, checks all data base update operations, and 
checks input control card information. Any errors encountered cause one 
Or more messages to be generated. Refer to the DL/I DOS/VS Messages and 
Codes. 
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DLZURGMO =- DB REORGANIZATION MESSAGE 
This module contains messages used by the following utilities: 
preorganization (DLZURPRO}), scan (DLZURGSO), prefix resolution 


(DLZURG10), and prefix update (DLZURGPO). The module consists of the 
two tables defined below. 


Control Blocks - DLZURGMO 


1. Message Length and Offset Table 
One 4-kyte table entry exists for each message. Each 4-byte entry 
contains the message length and offset. 

22 Message Takle 
One variable-length entry is present for each message. Each entry 
contains the text of the message. The length is found in the 
message length and offset table. 


Interfaces ~ CLZURGMO 


This module contains messages that are used by the following modules: 


DLZURPRO (prereorganization) 
DLZURGSO (scan) 

DLZURG10 (prefix resolution) 
DLZURGPO (prefix update) 


TRACE PRINT UTILITY 


DLZTPRTO ~- TRACE PRINT UTILITY 


The Trace Print Utility is used to format and print trace entries 
previously written to a tape or disk by the CICS/VS extra partition 
dataset facility. The format of the output records on SYSLST is the 
same as those written directly to SYSLST by the Trace Facility. Trace 
Print Utility processing is as follows: 


1. The utility opens the reader (SYSIN), printer (SYSLST), and console 
log (SYSLCG). 


2. A read is issued to SYSIN, looking for a TI statement. If present, 
the fields on the statement are validated and saved. Further reads 
are issued to SYSIN until EOF is returned. All statements read from 
SYSIN are recorded on SYSLST . 


3. When End-of-File is reached on SYSIN, the reader is closed. 

4. A GETVIS is issued to acquire sufficient storage for two trace input 
kuffers. The buffer size will either be the default of 32767 bytes, 
or the size specified on the TI statement. 

5. The device assigned for trace input is then checked by the DLZDVCE 
macro routine. If the device is a valid tape or disk, the 
corresponding DTF is modified and the file opened for input. 

6. Trace records are then read from the input file until End-of-File is 
returned. 
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7. Trace entries are processed from the input buffer one at a time 
until all of the entries in the record are printed. When the last 
entry of the record is processed, control is returned to the read 
routine. 


8. Any errors detected will be written ts SYSLST and/or SYSLCG. If no 


errors are detected, a message indicating successful completion is 
written. 
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SECTION 4; DIRECTORY 


This table gives the following information for all DL/I DOS/VS modules: 
e CORE IMAGE LIBRARY 
The name of the DL/I DOS/VS phase residing in the core image library. 
e CSECT(S)/ENTRY POINT(S) 
The CSECTs that comprise each PHASE. Any indented name under a CSECT 
is an entry point within that CSECT. If the indented name is 
preceded by °*', it designates a routine within the CSECT and may, or 


May not, appear on the link-edit map. Unreferenced entry points have 
keen cmitted. 


e RELOCATAELE LIBRARY 


The name(s) of the module(s) in the relocatable library which are 
needed fcr linkage editing. 


e SCURCE LIBRARY 


The name(s) of the module(s) in the source statement library. For 
each module, source code listings are available on microfiche (under 
the module name). 


e CORE ID 
The core ID for the applicable modules. This is located near the 
keginning address of each module and is usually followed by the 
versicn, release, level, and latest PTF number applied. 

e SUPPLEMENTARY INFORMATION 


The entry SVA means that the module concerned is eligible to be 
loaded into the shared virtual area (SVA). Any other entry in this 
column is the entry point name that must be present on the END card 
when assembling this module, for example, END DLZBEGIN. 


e FIGURE REFERENCE 
The figure number that is shown after the module name refers to the 


figure number of the module's HIPO diagram in Section 2 of this 
manual. 
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CORE 
IMAGE 
LIBRARY 


CSECT(S)/ 
ENTRY 
FOINT(S) 


RELO 
LIBRARY 


SYSTEM CCNTROL MODULES 


** Batch Initialization ** 


DLZRRCOO 


DLZRRCOO 
*ERRORMSG 
CDLZMMSGT 
CLZRDR 
CLZCONSL 
DLZRRC10 
*DLZRRAOO 
*DLZPCC00 
*DLZDBLMO 
*LOADDMBS 
*PCBROUT 
*DLZCPIOO 
*DMBLOADR 


** Ratch Nucleus #* 


DLZENUCO 


** Online Initialization** 


CFHSICL 


SCCCSECT 
SCDSTART 
*DLZIWAIT 
*DLZPRHBO 
*DLZABEND 


DLZOLI00 
#DLZCP100 


**Online Nucleus** 


CDLZNUCxx 


DLZODPOO0 
CLZODPO1 
DLZODP02 
DLZODP03 
DLZODPO4 
CLZODPO5 
CLZOPD06 
DLZOPDO7 


CLZPRHOO ~ 


DLZCLTO0 
DLZOLTO1 
DLZOLTO2 
DLZISCOO 
DLZISCO1 
DLZISCO2 
DLZOWAIT 
DLZERMSG 
DLZOVSEX 


DLZRRCOO 


DLZMMSGT 


SOURCE 
LIBRARY 


o> Gn ah OD Ge aw GO 


{See Figure 2-3) 


DLZRRCOO 


DLZMMSGT 


(See Figure 2-4) 


DLZBNUCO 


~DLZOLIO0 


DLZODP 


DLZBNUCO 


(See Figure 2-5) 


DLZOLIOO 


(See Figure 2-6) 


DLZODP 


Notes xx is the result of ACT generation. 


** DL/I Online System Termination ** 


DLZSTPOO 


DLZSTPOO 


DLZSTPO0O 


DLZSTP00 
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a 2p Dan a 


DLZRRCO0O 


DLZBNUCO 


DLZOLI00 


DLZNUCxx 
DLZODP01 
DLZODP02 


DLZODPO4 
DLZODP05 


DLZPRHOO 
DLZOLT0O 


DLZISCO0O0 


DLZOWAIT 
DLZERMSG 
DLZOVSEX 


(See Figure 2-7) 


SUPPL 
INF 


- ap 4 a ae 


DLZRRCST 


DL ZODP 


CORE CSECT(S)/ 
IMAGE ENTRY RELO 
LIBRARY . POINT (S) LIBRARY 


a ap a> ah aD ae > a GO Se @ a> a> o> ow > 


DL/I FACILITY MODULES 


** Call Analyzer ** 


DLZDLA0O DLZDLA0O DLZDLA0O 


DLZDLAO1 DLZDLA01 


** Retrieve ** 


DLZDLROO $DLZDLROO DLZDLRAO 
DLZDLR10 
DLZRETNO 
DLZEODCO 
DLZGERCO 
DLZGERO 
DLZGETSO 

DLZCLRPO 
DLZWIPEO 
DLZMOVAO 
DLZMOVBO 
DLZDELTO 
DLZPSDBO 
DLZHUNTO 
DLZSETLO 
DLZBHO 
DLZSSDBO 
DLZNOOPO 
DLZCONCO 

DLZSSAO0 
DLZTAGO 
DLZLTWO 
DLZNOSSO 

DLZHIDAO 
DLZHDAMO 
DLZHISAO 
DLZSTLAO 
DLZSTLGO 
DLZUPDTO 
DLZKDTEO 
DLZPCHKO 

DLZISRTO 
DLZVLRTO 
DLZAREJO 
DLZVLCHO 
DLZXDFTO 
DLZHSAMO 
DLZALTSO 

DLZLOGRO 
DLZRETKO 
DLZRETIO 
DLZKDRKO 
DLZKDTLO 
DLZUPDCO 
DLZUPDLO 
DLZAPSTO 
DLZYENTO 
DLZYSTCO 
DLZYENDO 
DLZDEQO. 


DLZDLRBO 


DLZDLRCO 


DLZDLREO 


DLZDLRFO 


DLZDLRDO 


(DLZDLROO) 


(See Figure 2-9) 


SOURCE 
LIBRARY 


(See Figure 2-8) 


DLZDLA0O 


DLZDLA01 


DLZDLRAO 


DLZDLRBO 


DLZDLRCO 


DLZDLREO 


DLZDLRFO 


DLZDLRDO 


CORE 
ID 


a a Daw ee 


DLZDLA0O0 


DLZDLAO1 


DLZDLRAO 


DLZDLRBO 


DLZDLRCO 


DLZDLREO 


DLZDLRFO 


DLZDLRDO 


SUPPL 
INF 


=> ap Gb ap ee 


SVA 
DLZEPDLA 
SVA 


SVA 
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CORE 
IMAGE 
Li BRARY 


oe «ab ae ow ane 


** Load/Insert ** 


DLZDDLEO 


CSECT(S)/ 
ENTRY 
POINT (S) 
DLZPOSTO 
DLZSKPGO 
DLZSKPSO 
DLZSKPDO 
DLZSKPEO 
DLZRLNKD 


DLZDDLEO 
HDROUTIN 
HSROUTIN 


** Delete/Replace ** 


DLZDLDOO 


** Index Maintenance ** 


DLZDXMTO 


** HD Space Management 


DLZDHDSO 


** Open/Close ** 


DLZDLOCO 


** DB Buffer Handler ¥** 


DLZDBHOO 


DLZDLDOO 


DLZDLDSO 
DLZDLDDO 
DLZDLDAO 
DLZDLDRO 


DLZDXMTO 


DLZDHDSO 
DLZGGSPC 
DLZRRTRN 
DLZFRSPC 
DLZLLCLC 
DLZMMLCT 
DLZRRHPL 
DLZRCHBK 
DLZRCBK2 
DLZMMUDT 
DLZMMOFF 
DLZMMON 
DLZRRHMP 
DFSRLO30 
#SNAPDCB 
*SNPSW 
#SNPCNT 
DLZDCI00 


DLZDLOCO 


DLZDBHO00 
DLZEBH00 


“*MAINROUT 


ROULINK 
*PREPENQ 
*PREPDEQ 
*ABEXIT 
*BOTTOUSE 


(See 


RELO 
LIBRARY 


<a> = Ge ap ae 4D | 


DLZDLRGO 


DLZRLNKD 


DLZDDLEO 


DLZDLDOO 


SOURCE 
LIBRARY 


—~—ap qe «ap aw we 


DLZDLRGO 


DLZRLNKD 


(See Figure 2-10) 


DLZDDLEO 


(See Figure 2-11) 


DLZDLDOO 


(See Figure 2-12) 


DLZDXMTO 


** (See Figure 2-13) 


DLZDHDSO 
DLZGGSP0O 


DLZFRSPO 
DLZLLCLO 
DLZMMLCO 
DLZRCHPO 
DL.ZRCHBO 


DLZMMUDO 


DLZRRHMO 
DLZDHDSO 


DLZDCI0O 


Figure 2-14) 


DLZDLOCO 


DLZDXMTO 


DLZDHDSO 
DLZGGSP0 


DLZFRSPO 
DLZLLCLO 
DLZMMLCO 
DLZRCHPO 
DLZRCHBO 
DLZMMUDO 


DLZRRHMO 
DLZDHDO0O 


DLZDCI00 


DLZDLOCO 


(See Figure 2-15) 


DLZDBHOO 


DLZDBHOO 
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CORE 
ID 


ee ae te ae ae 


DLZDLRGO 


DLZRLNKD 


DLZDDLEO 


DLZDLDOO 


DLZDXMTO 


DLZDHDSO 


DLZDLOCO 


DLZDBH00 


SUPPL 
INF 


ae QP a ap ow 


SVA 


SVA 


DELREPEP 


SVA 


SVA 


SVA 
DLZEBHO0 


ah 


CORE CSECT(S)/ 

IMAGE ENTRY RELO 

LIBRARY POINT (S) LIBRARY 
*ALLDEQ 
*BFFERREL 
*RETURN 
DLZDBHO02 
*WRITE 
*READ 
*HSREAD 
*HSWRITE 
*LOWRITE 
*PUTKY 
*MSPUT 
*STLEQ 
*STLBG 
*GETNX 
DETIOERR 
*TSTPST1 
DLZDBHO3 
*ENQ 
*DEQ 
*CONVADNR 
*MRKEMPT 
*PGUSR 
*CONVNARD 


SOURCE CORE 
LIBRARY ID 


<=> ap oe ae & er te = 4) @ ap a 


DLZDBHO2 DLZDBHO2 DLZDBH02 


DLZDBHO03 DLZDBHO3 DLZBFHO3 


** DB Logger ** (See Figure 2-16) 


DLZRDBLO DLZRDBLO DLZRDBLO DLZRDBLO DLZRDBLO 
DLZICBLO 
ICFILA1 
LOGOUT 
LSCDADDR 
IJFUZZZN 
IJFUZZ2ZZ 
IJ2N0017 
ONLLOGWR 
(DLZRDBLO) SAVE 


PRIVECB 


IJFUZZZN 


DLZRDBLO DLZRDBLO 


** CICS Journal Logger ** (See Figure 2-17) 


DLZRDEL1 DLZRDBL1 DLZRDBL1 DLZRDBL1 DLZRDBL1 
DLZRDBLO 

** Queuing Facility ** (See Figure 2-23) 

DLZQUEFO DLZQUEFO DLZQUEFO DLZQUEFO DLZQUEFO 

DLZQUEFW DLZQUEFW DLZQUEFW DLZQUEFW DLZQUEFW 


** Field Level Sensitivity Copy ** (See Figure 2-40) 


DLZCPY10 DLZCPY10 DLZCPY10 DLZCPY10 DLZCPY10 
DLZSEGCV DLZSEGCV 

MPS CONTROL MODULES 

** Start Transaction ** (See Figure 2-18) 

DLZMSTRO DLZMSTRO DLZMSTRO DLZMSTRO 


DLZMSTRO 


SUPPL 
INF 


<—_ a ae ow a 


DLZRDBLO 


DLZRDBL1 


DLZQUEFO 


 SVA 
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CORE CSECT(S)/ 
IMAGE ENTRY RELO SOURCE CORE SUPPL 
LIBRARY POINT (S) LIBRARY LIBRARY ID INF 
** Master Partition Controller ** (See Figure 2-19) 
DLZMPCO0 CLZMPCOO DLZMPCO00 DLZMPC00 DLZMPCO0O 
** Batch Partition Centroller ** (See Figure 2-20) 
DLZBPCOO DLZBPCOO DLZBPCO00 DLZBPCOO DLZBPCO00 
** MPS Batch ** (See Figure 2-21) 
DLZMPIOO DLZMPIOO DLZMPIOO DLZMPIOO DLZMPI00 DLZMINIT 
*DLZMPRH 
DLZMINIT 
*DLZMTERM 
*DLZMMSG 
*DLZMABND 
DLZCONSL 
DLZDIMOD 
DLZMMSGT DLZMMSGT DLZMMSGT 
#*# Stop Transaction (See Figure 2-22) 
DLZMSTPO DLZMSTPO DLZMSTPO DLZMSTPO DLZMSTPO 
DATA BASE RECOVERY UTILITIES 
** DB Data Set Image Dump ** (See Figure 2-25) 
DLZUDMPO DLZUDMPO DLZUDMPO DLZUDMPO DLZUDMPO 
IJ2M0101 DLZUDMPO DLZUDMPO 
DLZDMPMO DLZDMPMO DLZDMPMO 
IJJFCBZD IJJFCBZD 
IJFSZZWN IJFSZZWN 
IJFVZZWN 
IJGQOCZZ IJGQOCZZ 
IJGVOCZZ 
** DB Change Accumulation ** (See Figure 2-26) 
DLZUCUMO DLZUCUMO DLZUCUMO DLZUCUMO DLZUCUMO 
DLZERRTN 
DLZUSPKL 
DLZWORK# 
DLZPRNT 
DLZSLOG 
DLZUCONS | 
DLZUCCTO DLZUCCTO DLZUCCTO DLZUCCTO 
DLZUC150 DLZUC150 DLZUC150 DLZUC150 
DLZUEX15 
DLZUC350 DLZUC350 DLZUC350 DLZUC350 
DLZUEX35 | 
DLZUCERO DLZUCERO DLZUCERO DLZUCERO 
DLZCUMMO DLZCUMMO DLZCUMMO 
IJFSZZWN IJFSZZWN 
IJFVZZWZ 
LJUFSZZWZ 
IJGQICZZ IJGQICZZ 
LJIGQIZZZ 


CORE 
IMAGE 
LIBRARY 


apap > a> 4 44> @ 


** DB Data 


DLZURDBO 


** DB Change Backout** 


DLZBACKO 


** Log Print Utility ** 


DL ZLOGPO 


DATA BASE REORGANIZATION UTILITIES 


CSECT(S)/ 
ENTRY 
POINT (S) 
IJGQOCZZ 
IJGQOZZZ 
IJJFCBZD 
IJJFCIZD 
IJ2M0014 
IJFUZZZZ 
IJGUIZZZ 


Set Recovery ** 


DLZURDBO 
DLZURCCO 
DLZL1000 
CELTDLI 
DLZRDBMO 
IJJFCBID 
IJJFCBZD 
IJJFCIID 
IJFSZZWN © 
IJFVZZWN 
I1J2M0038 
IJFUZZZN 
IJGUICZZ 
IJGQICZZ 
IJGVICZZ 


DLZBACKO 
READAREA 
IJ2M0033 
DLZRDBCO 
CLZBACMO 
DLZL1I000 
ASMTDLI 
IJFUBZZZ 
IJJFCBZD 
IJJFCIZD 


DLZLOGPO 
DLZLGPCN 
DLZLGPMT 
DLZLPCCO 
DLZLGPMO 
IJJFCBID | 
IJJFCIID 
IJFUZZZN 
IJGUICZZ 


RELO 
LIBRARY 


IJGQOCZZ 
IJJFCBZD 


DLZUCUMO 
IJFUZZ2ZZ 
IJGUIZZZ 


DLZURDBO 
DLZURCCO 
DLZLI000 


DLZRDBMO 
IJJFCBID 


IJFSZZWN 


DLZURDBO 
IJFUZZZN 
IJGUICZZ 
IJGQICZZ 


SOURCE 
LIBRARY 


DLZUCUMO 


(See Figure 2-27) 


DLZURDBO 
DLZURCCO 
DLZL1I000 


-DLZRDBMO 


DLZURBDO 


(See Figure 2-28) 


DLZBACKO 


DLZRDBCO 
DLZBACMO 
DLZLI000 


IJFUBZZZ 
IJJFCBZD 


-DLZBACKO 


DLZRDBCO 
DLZBACMO 
DLZLI000 


(See Figure 2-39) 


DLZLCGPO 


DLZLPCCO 
DLZLGPMO 
IJJFCBID 


IJFUZZZN 
IJGUICZZ 


DLZLOGPO 


DLZLPCCO 
DLZLGPMO 


** HS DB Unload ** (See Figure 2-29) 


DLZURULO 


DLZURULO 
DLZRULMO. 
IJJFCBZD 


DLZURULO 
DLZRULMO 
IJJFCBZD 


DLZURULO 
-DLZRULMO 


CORE SUPPL 
ID INF 


a> ab 22 a= a> ae a ag <p chp 


DLZURDBO 
DLZURCCO 
DLZLI000 © 


DLZURDBO 
-DLZURCCO 


DLZBACKO 


- DLZRDBCO 


DLZLIO00 


DLZLOGPO 


DLZURULO | 
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CORE CSECT(S)/ 
IMAGE ENTRY RELO SOURCE CORE SUPPL 
LIBRARY POINT (S) LIBRARY LIBRARY ID INF 
IJFVZZWN IJ FVZZWN 
IJGQOCZZ IJGQOCZZ 
IJGVOCZZ 
** HS DB Reload ** (See Figure 2-30) 
DLZURRLO DLZURRLO DLZURRLO DLZURRLO DLZURRLO 
CLZRRLMO DLZRRLMO DLZRRLMO 
IJJFCBZD IJJFCBZD 
IJGQICZZ IJGQICZZ 
IJGVICZZ 
IJFVZZWN IJFVZZWN 
IJFVZZWZ 
** HD DB Unload ** (See Figure 2-31) 
DL ZURGUO DLZURGUO DLZURGUO DLZURGUO DLZURGUO 
DLZCONSL 
DLZLI000 DLZLI000 DLZLI000 DLZLI000 
CBLTDLI 
DLZRGUMO DLZRGUMO DLZRGUMO 
IJJFCBZD IJJFCBZD : 
IJFUZZZN IJFUZZZN 
IJGUOCZZ IJGUOCZZ 
IJGUICZZ IJGUICZZ 
** HD DB Reload ** (See Figure 2-32) 
DLZURGLO DLZURGLO DLZURGLO DLZURGLO DLZURGLO 
DLZL1I000 DLZL1I000 DLZLI000 DLZLI000 
CELTDLI 
DLZRGLMO DLZRGLMO DLZRGLMO 
IJJFCBZD IJJFCBZD 
IJGQICZZ IJGQICZZ 
IJGVICZZ 7 
IJFSZZWN IJFSZZWN 
IJFVZZZN 
ACB UTILITY 
** ACB Creation ** (See Figure 2-33) 
DLZUACBO DLZUACBO ' DLZUACBO DLZUACBO DLZUACBO 
| PRIMSG 
DLZDLBLO DLZDLBLO DLZDLBLO DLZDLBLO 
PSBPASS ; 
DLZDLBL4 | 
DLZDLBL1 DLZDLBL1 DLZDLBL1 DLZDLBL1 
DLZDLBL2 DLZDLBL2 DLZDLBL2 DLZDLBL2 
DLZDLBL3 DLZDLBL3 DLZDLBL3 DLZDLBL3 
FREESTOR © 
IJSYSLN 
 PCHDTF 
DLZLBLMO DLZLBLMO DLZLBLMO DLZLBLMO 
DLZUSCHO - DLZUSCHO DLZUSCHO DLZUSCHO 
INSRCH | 
CLOSESCH | 
DLZDPSBO DLZDPSBO DLZDPSBO DLZDPSBO 
IJJCPD1N IJJCPD1IN 
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CORE 
IMAGE 
LIBRARY 


2a Gh ae > a> ow 


DB LOGICAL RELATIONSHIP UTILITIES 


** Prereorganization ** 


DLZURPRO 


** DB Scan 


DLZURGSO 


CSECT(S)/ 
ENTRY 
POINT (S) 


IJJFCBZD 
IJJFCIZD 


DLZURPRO 
DLZL1I000 
ASMTDLI 
DLZURGMO 
IJJFCBZD 
IJGFOCZZ 


** (See 


CLZURGSO 
DLZCONSL 
DLZURGMO 
DLZLI000 
ASMTDLI 
IJJFCBZD 
IJJFCIZD 
IJFSZZWN 
IJFVZZZN 
IJGQICZZ 
IJGVICZZ 
IJGFICZZ 


** Prefix Resolution 


DLZURG10 


DLZURG10 
DLZURGMO 
IJJFCBZD 
IJJFCIZD 
IJGFICZZ 
IJGQICZZ 
IJGVICZZ 
IJFSZZWN 
IJFVZZZN 
IJFVZZWN 
IJFFZZZN 
IJGQO0CZZ 
LJGVOCZZ 
DLZX15S1 
DLZX15S2 
DLZX35S1 
DLZX35S2 


** Prefix Update ** 


DLZURGPO 


DLZURGPO 
DLZURGMO 
DLZL1I000 
ASMTDLI 
CBELTDLI 
IJJFCBZD 
IJJFCIZD 


Figure 2-35) 


* * 


RELO 
LIBRARY 


Be wees @ 


IJ JFCBZD 


SOURCE 
LIBRARY 


<> ae ae ae 62 ar a 


(See Figure 2-34) 


DLZURPRO 
DLZLI000 


DLZURGMO 


IJJFCBZD 
IJGFOCZZ 


DLZURGSO 


DLZURGMO 
DLZLI000 


IJJFCBZD 
IJFSZZWN 
IJGQICZZ 


IJGFICZZ 


DLZURPRO 
DLZLI000 


DLZURGMO 


DLZURGSO 


DLZURGMO 
DLZLI000 


(See Figure 2-36) 


DLZURG10 
DLZURGMO 
IJJFCBZD 


IJGFICZZ 
IJGQICZZ 


IJFSZZWN 
IJFFZZZN 
IJGQO0CZZ 


DLZURG10 


DLZURG10 
DLZURGMO 


DLZURG10 


(See Figure 2-37) 


DLZURGPO 
DLZURGMO 
DLZLI000 


IJJFCBZD 
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DLZURGPO 
DLZURGMO 
DLZLI000 


CORE 
ID 


a a = aw a 


DLZURPRO 
DLZLI000 


DLZURGSO 


DLZL1I000 


DLZURG10 


DLZURGPO 


DLZL1I000 


SUPPL 
INF 


naw nae 
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CORE CSECT(S)/ 

IMAGE ENTRY RELO 

LI BRARY POINT (S) LIBRARY 
IJFSZZWN IJ FSZZWN 
IJFVZZZN 

(DLZURGPO) IJGQICZZ IJGQICZZ 


IJGVICZZ 


** Work File Generator ** (See 


DLZDSEHO DLZDSEHO DLZDSEHO 
DLZBEGIN 
CPENWORK 
IJFSZZWN LJ FSZZWN 
IJFVZZWN 
IJGFICZZ IJGFICZZ 
IJGQOCZZ IJGQOCZZ 
IJGVOCZZ 


DIAGNOSTIC AND TEST MODULES 


** System Fcrmatted Dump ** 


DLZFSDPO 
DLZTRPRO 


DLZFSDPO DLZFSDPO 


*#* DL/I Tracing Facility ** 


user DLZTRACE user 

chosen chosen 
DLZTRPRO DLZTRPRO 
IJJFCBIC IJJFCBIC 


** DL/I Test Program - Batch ** 


DLZDLTXX CLITCBL DLZDLTXX 
DLZSNAP 
DLZLI000 DLZL1I000 
CBLTDLI 
IJGFIZZZ IJGFIZZZ 
IJJFCBID IJJFCBID 
IJJFCIID 


** DL/I Test Program - Online ** 


DLZDLTXY DLITCBL 


DLZDLTXY 

DLZSNAP 

DLZLI000 DLZL1000 
CBLTDLI | 
IJGFI22Z IJGFIZ2Z 
IJJFCBID IJJFCBID 
IJJFCIID 


** Online Task Formatted Dump **_ 


DLZFTDPO DLZFTDPO DLZFTDPO 


** Trace Print Utility ** (see figure 2-41) 


DLZTPRTO DLZTPRTO 
DLZTPRMO 


DLZTPRTO 
DLZTPRMO 


SOURCE 
LIBRARY 


Figure 2-38) 


DLZDSEHO 


DLZFSDPO 


DLZTRACE 


DLZTRPRO 


DLZDLTXX 


DLZLI000 


DLZDLTXY 


DLZLI000 


DLZFTDPO 


DLZTPRTO 
DLZTPRMO 
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<< a> ap ab a 


DLZDSEHO 


DLZFSDPO 


DLZTRACE 


DLZTRPRO 
DLZDLTXX 


DLZLI000 


DLZDLTXY 


DLZLI000 


DLZFTDPO 


DLZTPRTO 


SUPPL 
INF 


i ae a ae ae 


DLZBEGIN 


Ba 


f.23 EE 


CORE 
IMAGE 
LIBRARY 


Me @&eeoeae 


CSECT(S)/ 


ENTRY 

POINT (S) 
IJJFCEIC 
IJJFC1IZD 
IJFVZZZZ 
IJGVIEZZ 
IJ2M0021 


RELO 
LIBRARY 


IJJFCIZD 
IJ FVZZ2ZZ 
IJGVIEZZ 
IJ 2M0021 


SOURCE 
LIBRARY 


<-> 4p an @ an ah @ 


CORE 
ID 


me @ @w @ 


SUPPL 
INF 


— a Bane 
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SECTION 5: DATA AREAS 


This section describes the major data areas used by DL/I DOS/VS. The 
description of each data area generally includes: 


e Its DSECT name. 

e The symbolic names of the fields and flags. 

e The displacement of each field, in both decimal and hexadecimal. 
e The length of each field. 


e An alphaketic listing of all field and flag names (flags are 
indicated ky asterisks). 


e The hexadecimal code of each flag. 


The data areas are documented in alphabetical order as listed in the 
Contents of this publication. 


This section also describes the DL/I partition in a batch environment 
and illustrates the relationship of the DL/I control blocks. In 
addition, the description and general structure is given for the data 
Management block (DMB), the program specification block (PSB), and the 
DL/I kuffer peol control blocks. 
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THE CL/I PARTITION AND CONTROL BLOCK RELATIONSHIP 


The following text describes the DL/I partition in a batch environment 
and illustrates the relationship of the DL/I control blocks described in 
this section. 


THE DI/I BATCH PARTITION 


Figure 5-1 is a map of main storage in the DL/I DOS/VS batch partition. 
Storage is allocated from the bottom or lowest storage address to the 
top or highest storage address of the partition. The eight areas in the 
DL/I katch partition are as follows: 


9= 2 


Area 1 contains the DL/I nucleus. The SCD is the first control block 
in the nucleus and contains the DL/I copyright information. This 
block also contains the entry point address for every module in the 
DL/I system. The PST prefix, PST, and PSB directory (PDIR) are in 
this area. There is one entry in the PSB directory (PDIR). 


Area 2 contains the DL/I program request handler, DLZPRHBO, which is 
loaded during DL/I initialization. It is part of the batch nucleus 
module (DLZENUCOQ).. 


Area 3 contains the PSB intent list, PSB, and one DMB directory 
(DDIR) for each DMB referenced by the PSB. The DMB directory is 
created dynamically during DL/I initialization. 


Area 4 contains DMBs loaded from the DOS/VS Core Image Library by the 
CL/I Batch Initialization module. Randomizing modules are loaded 
after the DMBs for HDAM. They are followed by VSAM control blocks, 
index management modules if secondary indexes are used, and by 
segment compression modules if variable length segments are used. 


Area 5 contains the DL/I buffer pool control blocks. These blocks 
are created dynamically. There are one buffer pool prefix, one 
Ssukpool information table for each subpool specified, one DMB subpool 
directory entry for each DMB, and 2-32 buffer prefixes for each 
Sukpool specified. 


Area 6 contains the DL/I I/O buffers which comprise the buffer pool. 
There are 2-32 buffers for each subpocl specified. Each subpool is 
aligned on a 2K page boundary. 


Area 7 contains the DL/I action modules and the user trace module if 
requested. 


Area 8 contains the user batch application program. 


EN 
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HIGH STORAGE 


LOCATION 


AREA 
a” ad 


DL/1 BATCH APPLICATION PROGRAM 


PAGE BOUNDARY 
a 


TRACE MODULE — (USER NAMED) 
SPACE MANAGEMENT — DLZDHDSO 
OPEN/CLOSE — DLZDLOCO 


LOAD/INSERT — DLZDDLEO INDEX MAINTENANCE — DLZDXMTO 
DELETE/REPLACE — DLZDLDOO 
CALL ANALYZER — DLZDLAOO DATA BASE LOGGER — DLZRDBLO 


DL/I| RETRIEVE — DLZDLROO 
COMMON BUFFER HANDLER — DLZDBHOO 


BUFFER POOL (NOTE) 


PAGE BOUNDARY 
ay 


BUFFER POOL CONTROL BLOCKS (NOTE) 


SS 
PAGE BOUNDARY VSAM CONTROL BLOCKS, INDEX MANAGEMENT MODULES, 


AND SEGMENT COMPRESSION MODULES 


DMB POOL AND RANDOMIZING MODULES 


PSB INTENT LIST AND PSB DMB DIRECTORY (NOTE) 


APPLICATION PROGRAM REQUEST HANDLER — DLZPRHBO 


DL/I NUCLEUS — DLZBNUCO 
SCD — PST PREFIX — PST — PSB DIRECTORY 


LOW STORAGE 


LOCATION DLZRRCOO — PARTLY OVERLAID BY DLZBNUCO 
ees ied 
NOTE: BLOCKS DYNAMICALLY CREATED OR FORMATTED 





Figure 5-1. Map of Main Storage in the DL/I Batch Partition 
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CDL/I CONTROL ELOCK RELATIONSHIP 


The purpose of this section is to show the relationships of the various 
CL/I control blocks and provide a means by which the user can quickly 
find his way to these control blocks. The following discussion 
references Figure 5-2. 


The SCD is the major control block in the DL/I system. It is located at 
the beginning of the DL/I nucleus. The SCD contains DL/I copyright 
information, entry point addresses of the DL/I logic module, and 
pointers to the following DL/I ‘control blocks: 


e The buffer pool prefix, which is the first block of the buffer pool 
control klocks. | 


e The first PSB directory from which the first PSB and PSB intent list 
may be obtained. In a Latch system, there is only one PSB directory, 


e The first DMB directory. There is one DMB directory for each DMB 
referenced by the PCBs. 


e The first PST prefix from which the first PST may be obtained. There 
is only one PST prefix in a batch system. 


The PST, including the PST prefix, functionally relates the control 
blocks for DL/I and represents the batch or CICS/DOS/VS <- DL/I online 
task being served by DL/I. The PST is the dispatching block and is the 
Only parameter passed when calling another module. The address of the 
PST is contained in the PST prefix. The following pointers are 
available in the PST: 


e caller's (user program) parameter list 
e ScD 

e PSB directory for the task 

e PCE currently being accessed 


e I/O buffer to be used for the data base call (used by the buffer 
handler) 


e Subpool information table assigned to the data base (used by the 
buffer handler) 


e Buffer prefix which points to the I/O buffer containing the segment 
for the call (used by the buffer handler) 


There is one PSE directory entry and one PSB for each program that may 
ke accessed by DL/I. In a CICS/DOS/VS - DL/I online environment, the 
maximum is 255; in batch, there can be only one. The PSB directory 
contains address pointers to the PSB and the PSB intent list. 


The PSB intent list is a variable-length control block and contains an 
entry for each DMB referenced by the PSB. Each entry contains the 
address of the DMB. | | 


The PSB contains prefix information and one Or more PCBs. For each PCB 

there is a JCER, which is made up of the following: JCB prefix, level 

table, and one or more SDBs. The PCB points to the JCB. The JCB 

contains working storage for the program's use of that data base and 7 
points to the level table. The JCB also points to the SDB for the root A 
segment and the VSAM ACB for the data base (KSDS ACB if HISAM). The : 
level takle contains working storage for DL/I to store its positioning 
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data for each level of the data base. The level table points to the 
current level SDB. 


The SDB describes the user's logical use of the sensitive segment. 
There is one SDB for each segment to which the user is sensitive. Each 
SDB points to the corresponding PSDB in the DMB. 

The DMB directory contains the address of the DMB. Each DMB contains a 
prefix, one ACB extension for each data set in the DMB (two if HISAM), 
one PSDB for each physical segment type, and one FDB for each field 
defined for a segment. In addition, there is one direct algorithm 
communication table (DMBDACS) if HDAM is used, and secondary list 
entries if HIDAM or HDAM with index or original relationships is used. 
The DMB prefix contains: 

e A two-kyte relative offset to the first PSDB 


e A two-byte relative offset to the end of the last PSDB+1, which is 
either the first secondary list entry (HIDAM) or the first FDB 


e A four-byte pointer to DMBDACS if HDAM 


The ACB extension contains information about the data set as well as an 
address pointer to the VSAM ACB and RPL for the data set, 


Fach PSDB contains: 

e A pointer to the first FDB for the segment 

e A pointer to the SDB for the active PCB which is sensitive to this 
segment type. If more than one PCB is sensitive to this segment 


type, the address of the SDB for the next PCB is contained in the 
active PSDE. 


The CMBDACS contains the address of the user's randomizing routine; most 
of the secondary list entries point to the DMB directory for the 
described index or logically related data base. 


The following items may be obtained from the buffer pool prefix: 


e The first subpool information table (immediately following the buffer 
pool prefix) 


e An address pointer to the first buffer prefix 


e An address pointer to the first DMB subpool directory entry 


The buffer prefix contains an address pointer to the I/O buffer which it 
references. 
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Figure 5-2, 


Poe esses = CS RS eS SSS SS a SS SiS aS 2 See ee Soa 


, NUCLEUS SCD 
ACT Entries 















Note 4 
Note 8 


SCDDBLNT 
SCDQUEFW 









pAlp cron 






DMB SCDDBFA 
Directory SCDDLIPS 
SCDDLIDM PST Prefi 
DDIRADDR SCDPPSTS Se 
SCDEXTBA PPSTCA 
——=wee aw a aw ew cae aw ew i ase a= == «ep -_= =p am =) 
DMB PSB Intent List 
DMB Prefix PSILDIRA =] ine eniectiaioaiaian 


DMBSECTB 


DMBLENTB 


Note 3 SCDABSV 


DMBDALGR 


SCD Extent r 
i 
| 
| 





PSTPREAD 









Note 5 PSTIQPRM 
DL/!t ACB PSTDBE 
Extension PSB Directory Note 6 PSTENCTH 


A 
BO eecae PSTDATA 


PDIRSILA Note 7 
L ' PSTBUFFA 
ACR Fo 7 7 7 7 the oa eca fl eo ‘asm ce ans, ee | PSTBFEUSE 
Extension 


Last 








HISAM ESDS =i Used] PSB atin 
(HISAM) PCB p PCB PSTRPSTA 
ACB (VSAM) Note 1 DBPCBPRO 
JCB RPSTACTA 
ACB (HISAM) Note 2 see eEee 
Level Table 
BiBD AGS RIBPCBAL 
(HDAM) LEVSDB 
Loca! PCB 
DMBDAEP Address List 
DMBCPAC SDB, 
(HD) SDBPSDB 
User — 
Compression SDBy 
DMBXMPRM Module 
(HD) 
Ee cosaucl User Index 
Module 
SDBXPANS 
DMBPSDB, 
DMBFDBA 
Field Exit 
DMBPSDBy, LY FSB Routine Table 
Entry 1 


FSBFERTA -—_——» 







FERTRTLG 


DMBSEC FSBy 


(HIDAM) 
DMBXNSUP 


I 





User Field 
Exit Routine 


FDBy 


FOB, 


HH 


Tape or DASD 
1/0 Module 





i 





CL/I Control Block Relationships 


Licensed Material - Property of IBM 

























Buffer Pool 
Control Blocks 


Buffer Pool 
Prefix 


BFPLPRAD 


BFPLSUBD 
BFPLSUIN 





Subpool 
Information 
Table; 


_ 


Subpool 
Information 
Tabley 


i 


RRD 


RRDRDBP 


DMB SP DIR 


i 


DMB SP DIR 


i 


DMB SP DIR 





i 


Buffer Prefix4 


BFFRADDR 


Buffer 






1/O Buffers 


| | 


Notes: 


1. PCB shows the processing option from PSBGEN and 
segment name feedback. 


JCBTRACE functions and return codes. 
Pointer to STXITAB save area. 

Pointer of DMB log module. 

Pointer to User Parameter List. 


PSTFNCTN and PSTRTCDE give the internal function 
and return code resulting from a call. 


C2 OE oR ke 


os 


Pointer to requested data. 
8. Address of queuing facility work area. 





CATA MANAGEMENT BLOCK - DMB 


A skeleton DME is created during DBD generation (DBDGEN) as part of the 
CBD. The DMB consists primarily of a description of each segment 
contained in the data base and information concerning the physical data 
base description. This is contained in ACB extensions or, in the case 
of HSAM, in DIFs. The DBD is loaded into storage by the DL/I 
application control blocks creation and maintenance utility, which 
builds the DMB from the DBD created by DEDGEN. The DMB is then 
cataloged and link edited into a core image library. The DMB is moved 
to its execution-time location in the DMB pool by the application 
control klocks load and relocate module (DLZDBLMO). 


The DMB consists of the following sections: 


e A prefix section containing primarily offsets to subsections of the 
CMR: 


e An ACB extension. For an HISAM organizaton, there is a pair of ACB 
extensions for each data base; a KSDS ACB and an ESDS ACB. If the 
data kase contains only root segments, only the KSDS ACB extension is 
created. The ACBs are generated only when the blocks are loaded for 
execution ky DLZDBLMO from the information in the ACB extensions. 

e A DTF extension if SHSAM or HSAM for input and output file. 

e A direct algorithm communication table if HDAM. 

e A compression section for each. compressable segment. 


e An index maintenance parameter section for each secondary exit 
routine. 


° A physical segment description block. 
e A secondary list to describe indexed fields or logical relationships. 
e Field description blocks describing each field in each segment. 


e A tape or DASD I/O module if SHSAM or HSAM. This module is included 
by the ACB utility. ae a | . | 


GENERAL STRUCTURE 


The general structure of the DMB is shown in Figure 5-3. 


Each DMB section is shown as a separate data 
area in Section 5 of this PLM, For the data 
area layout, see: 


DMB PREFIX 
DMB — DMB Prefix 
DSECT Name: DMB 

ACB EXTENSION | 

DSECT Name: DMBACBXT 

ACB — ACB Extension 

OTF EXTENSION 

DSECT Name: DMBDTFXT 
DIRECT ALGORITHM COMMUNICATION TABLE aes __ HDAM Randomizing itis 


DSECT Name: DMBDACS Interface Table 


~HDAM/HIDAM Variable Length 
CPAC — Segment Compression/Expansion 
Routine 


COMPRESSION SECTION 


DSECT Name: OMBCPAC 


INDEX MAINTENANCE PARAMETERS HDAM/HIDAM User Secondary 
XMPRM — Index Suppression Routine 


DSECT Name: DMBXMPRM Interface Table 


PHYSICAL SEGMENT DESCRIPTION BLOCK 


Physical Segment Description 
PSDB ~ Block 
DSECT Name: DMBPSDB 
SECONDARY LIST 
SEC — Secondary List 
DSECT Name: DMBSEC 
FIELD DESCRIPTION BLOCK 
aes FDB — Field Description Block 


DSECT Name: FDB 


Tape or DASD 1/O Module 





Figure 5-3. General Structure of DMB 
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PROGRAM SPECIFICATION BLOCK = PSB 


A PSE must Le created for every user program which will run under DL/I 
control. The PSB is created in “skeleton" format (principally PCBs 
only) by PSEBGEN. The PSB must be cataloged and link edited into the 
Core Image Library. The PSB is loaded into main storage by the DL/I 
Application Control Blocks Creation and Maintenance Utility program and 
expanded and completed by this utility. The expansion is performed by 
segment definition in the DED representing the associated data base. 
The expanded PSB is link edited into the Core Image Library. The PSB is 
moved to its execution-time location in the PSB pool by the application 
control blocks load and relocate module (DLZDBLMO). In expanded final 
format, the PSB consists of the following parts in the order specified: 


1. PSB prefix - Of which the most important part is the variable-length 
PSB list: the address list of the PCBs in the PSB. A dope vector 
table fcllows the PSB prefix for PL/I programs. 


2. A variakle number of data base PCBs. For each data base PCB there 
is a JCB (job control klock) consisting of the following parts: 


e JCB prefix 


e DSG (data set group) table. This table contains entries 
descriking the data bases specifically used for this PCB. There 
are entries for all logically connected data bases, all primary 
HIDAM indexes, and a secondary index if used as the processing 
sequence. 


e Level table. This table provides memory of the last DL/I CALL. 


e SDE (segment description block). This block contains an entry 
for each segment to which the user has declared himself sensitive 
in the PCB. The SDB entry describes the sensitive segment. 


e Work area for index maintenance, variable-length segment support, 
or miscellaneous function. These are allocated only when 
required (if any user PCE directly or indirectly refers to an 
index data hase). 


e PSE work areas; of variable length depending on the requirements 
Of the PCBs. 
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GENERAL STRUCTURE 


The general structure of the PSB is 


One Data_ 


Base / 


Additional 
Data Base 
PCBs 


Figure 5-4. 


N, 


i 


PSB PREFIX 


PDSECT Name: PSB 


PCB DOPE VECTOR TABLE 


DSECT Name: DPPCB 


DATA BASE PCB 
DSECT Name: 


JCB PREFIX 


DSECT Name: JCB 


DSG TABLE 


DSECT Name: DSG 


LEVEL TABLE 


DSECT Name: LEV 


DSECT Name: 


© REPEATED AS SHOWN ABOVE 


INDEX MAINTENANCE WORK AREA 
| DSECT Name: XWORKARA 


PCB WORK AREA 





DBPCB 


SDB © 


shown in Figure 5-4. 


General Structure of PSB. 
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~ DPPCB — 


‘ ,N soe, ee an bo. , rm - ; 


Each PSB section is shown asa 
separate data area in Section 5 of | 
this PLM. For the data area layout, 
see: 


PSB . —PSB Prefix | 


PCB Dope ._— 
Vector Table 


Program 
— Communication 
Block 


PCB 


Job. 
— Control 
Block 


JCB 


JCB 
includes 
DSG, 
LEV, 
and 
SDB 


-_ Data Set 


DSG Group 


_ Level Table 


LEV - Entry 


Segment 
— Description 
Block’ 


SDB 


Index Maintenance Work Area 


DL/I BUFFER PCOL CONTROL BLOCKS 


The CL/I ktuffer pool control blocks provide the control information to 
manage the entire buffer pool for the DL/I task. The buffer pool 
control klocks are as follows: 


Buffer Pool Control Block Prefix - This control block contains the 
statistics and other control information for the entire buffer pool. 


Sukpool Information Table - This control block contains information 
for a specific subpool, including the size of the buffers in the 
subpool. ‘There is one subpool information table for each subpool 
allocated. 


DMB Sukpool Directory - This control Ltlock contains a one-byte 
subpool number relative to zero for each HDAM or HIDAM data base 
allocated. The DMB sequence number is used as an offset into the DMB 
directory and allows a DMB to be identified with a specific subpool. 


Buffer Prefix Control Block - This control block contains key 
information about the contents of a specific buffer in a subpool. 
There is one buffer prefix control block for each buffer. Each 
subpocl contains 2-32 buffers. 
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GENERAL STRUCTURE 


The general structure of the DL/I buffer pool control blocks is shown in 
Figure 5-5. 


Each buffer pool contro! block is shown as a 
separate data area in Section 5 of this PLM. 
For the data area layout, see: 


BUFFER POOL CONTROL.BLOCK PREFIX 


BFPL — Buffer Pool Control Block Prefix 
DSECT Name: BFPL 
SUBPOOL INFORMATION TABLE 
DSECT Name: SUBINFTA 
SBIF — Subpool Information Table 
DMB SUBPOOL DIRECTORY 
BUFFER PREFIX 
DSECT Name: BFFRDS 
BFFR — Buffer Prefix 


1/O BUFFERS 


(2-32 per subpool) 





Figure 5-5. General Structure of DL/I Buffer Pool Control Blocks 
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ACBXT - ACB EXTENSION 


DSECT Name: 


CMBACBXT 


The ACB extension is described as part of the general structure and 
description of the data management block (DMB). The information in 
ACBXT is repeated for each data set in the DMB. 


ALPBRABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 


Name 


DMBACBAD 
DMBACBAP 
DMBACBDL 
DMBACBEX 
DMBACBLC 
DMBACBLN 
DMBACBMN 
DMBACBMX 
DMBACBND 
DMBACBNM 
DMBACBRP 
DMBACBST 
DMBACLNO 
*DMEBESDS 
DMBBFACT 
DMBCICYL 
DMBCINV 
*#DMBCISPL 
DMBCITRK 
DMELTFIN 
DMBDIFOT 
DMEECB 
DMBFBASN 
*DMBFRA 
DMBFRSPC 
DMEBFRSP1 
DMBHIBLK 
DMBHIRBA 
DMBINDO 
*DMBIGNOR 
*DMBKEY 
DMEBKEYLE 
DMBLRECL 
*DMBNUSE 
DMEOFLGS 
*DMBOPEN 
*DMBPSEQ 
*DMBPUTKY 
DMERBASN 
DMERKP 
DMBRLBLK 
DMBSFLCT 
DMEVSBFR 
DMEVSFLG 
*DMBWCHK 


Offset — 
Dec (Hex) 


0(00) 
7(07) 

6(06) 

68 (44) 
56 (38) 
80(50) 
10(0A) 
8 (08) 

80(50) 
60(3C) 
52(34) 
0¢00) 

60(3C) 
46 (2E) 
44 (2C) 
28 (1) 
404) 

35 (23) 
30 (1E) 
0(00) 

4(04) 

12(0C) 
72(48) 
46 (2E) 
58 (3A) 
59 (3B) 
16 (10) 
36 (24) 
46 (2E) 
34 (22) 
46 (2E) 
31 (1F) 
42(2A) 
34 (22) 
34 (22) 
34 (22) 
35 (23) 
34 (22) 
20(14) 
32(20) 
24(18) 
48 (30) 
40 (28) 
35 (23) 


46 (2E) 


Flag 
Code (Hex) 


40 


80 


(See DIF extension at end of ACBXT) 
(See DTF extension at end of ACBXT) 


20 


4O 
80 


20 
10 


10 
08 


08 
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RECCRL 


LAYOUT - ACEXT 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 


Offset 
0(00) 4 DMBACBST 
0(00) 4 | DMBACBAD 
4(04) 2 DMBCINV 
6(06) 1 DMBACBDL 
7007) 1 DMBACBAP 
8(08) 2 DMBACBMX 
10 (0A) 2 DMBACBMN 
12 (0C) 4 DMBECB 
16 (10) 4 DMBHIBLK 
20 (14) 4 DMBRBASN 
24 (18) 4 DMBRLBLK 
28 (1C) 2 DMBCICYL 
30(1E) 1 DMBCITRK 
31 (1F) 1 DMBKEYLE 
32 (20) 2 DMBRKP 
34 (22) 1 DMBOFLGS 
DMBIGNOR 
DMBNUSE 
DMBOPEN 
DMBPUTKY 
35 (23) 1 DMBVSFLG 
DMBCISPL 
5-14 
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40 
20 


10 
08 


80 


Start of ACB extension 
Address of corresponding ACB 
Control interval size 

Delta cylinders to scan 


Number of root anchor points 
per control interval (HDAM) 


Length of the largest segment 
in data set 


Length of the smallest 
segment in data set 


VSAM ACB event control block 
(ECB) used by buffer handler 
(DLZDBH00) 


Highest control interval RBA 


RBA of last logical record 
assigned (HISAM) or relative 
block number of last control 
interval assigned (HD). 
During batch initialization 
the high-order byte is the 
buffer size (control interval 
size/512) indicator 


Relative block number of last 
control interval written (HD) 


Number of control intervals 
per cylinder 


Number of control intervals 
per track 


Key length of KSDS 
Relative key position 


Open flags 

IGN was specified for 
workfile on load 

ACB does not have resolved 
secondary index entries; 
workfile must be used 

The corresponding ACB is open 
Simulate not load mode to 
VSAM 


Flags 
Control interval split 
occurred 


Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
DMBPSEQ 10 Sequential processing is 
possible for this KSDS 
36 (24) 4 DMBHIRBA Highest RBA in present range 
7 of extents (HIDAM ESDS only) 
40 (28) 2 DMBVSBFR Number of buffers to be used 
42 (2A) 2 DMBLRECL Logical record length 
44 (2C) 2 DMBEFACT Blocking factor 
46 (2E) 1 DMBINDO Permanent indicators 
DMBWCHK 08 Write check option 
DMBFBA 20 FBA device suport 
DMEBESDS 4Q Blocked ESDS | 
DCMBKEY 80 Data set contains keys 
(Simple HISAM and SHISAM) 
47 (2F) 1 **Reserved** | 
4&8 (30) 4 DMBSPLCT Control interval split count 
52 (34) 4 DMBACBRP Address of RPL for this ACB 
56 (38) 2 DMBACBLC LOg count (HISAM only) 
58 (3A) 1 DMBFRSPC Distributed free space 
parameter 
59 (3B) 1 DMBFRSP1 Second free space parameter 
60 (3C) 3) DMBACBNM Data set name as in ACB 
DMBACLNO Length of version 1.0 | 
68 (44) 4 DMBACBEX Address of exit list for this 
ACB 
72 (48) 2 DMEFBASN FBA sean value 
74 (4A) 6 **Reserved** 
80 (50) 2 DMBACBND End of ACB extension 
DBMACBLN Length of ACB extension 


(DMBACBND winus DMBACBST) 
Note: HSAM DMBs have the following DTF extension. 
DSECT Name: DMBDTFXT 
0(00) 4 DMBDTFIN. Address of HSAM input DTF 


4 (04) & DMBDTFOT Address of HSAM output DTF 
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BFFR ~ BUFFER PREFIX 


DSECT Name: BFFRDS 


The buffer prefix is described as part of the general structure and 
description of the DL/I buffer pool control blocks. There is one buffer 
prefix for each buffer allocated. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 

BFFRADDR 12(0C) 

BFFRCIID 0400) 

BFFRCIRE 0(00) 

BFFRDCB 6 (06) 

BFFRDMB &(04) 

*BFFREXNQ 7007) 02 

BFFRHOLE 30(1E) 

*BFFRLAST 27(1B) 01 

BFFRLEN 32 (20) 

*BFFRLOCK 27 (1B) 4Q 

BFFEFRLOCU © 10 (0A) 

*BFFRMT 7(07) 10 

BFFRNACR 26 (1A) 

BFFRNCII 20(14) 

BFFRNCID 20(14) 

BFFRNDMB 24(18) 

*BFFRNORU 27 (1B) 80 

BFFRNPSF | 28 (1C) 

BFFRNPSL 29(1D) 

BFFRNPST 28(1C) 

*BFFRPNNQ 7(07) 01 
*BFFRPREC 7(07) 08 

BFFRPST 8(08) 

BFFRPSTF 8(08). 

BFFRPSTL 9(09) 

*BFFRREAD 7(07) 20 
*BFFRRREL 27 (1B) 08 

BFFRSW 7(07) 

BFFRSW1 27(1B) 

BFFRUSCT 12(0C) 

BFFRUSID 16(10) 

BF FRWCBW 19 (13) 

BFFRWCFW 18 (12) 
*BFFRWCH 7007) 80 
*BFFRWERR 7(07) 04 
*BFFRWRT 7(07) 40 
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Ae 


RECORD LAYOUT - BFFR 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0€00) 7 BFFRCIID Control Interval identifier 
0(00) 4 EFFRCIRE Control Interval RBA 
4(O4) 2 BFFRDMB DMB Number 
6(06) 1 BFFRDCB ACB Number 
7007) 1 BFFRSW Flags 
BFFRWCH 80 Buffer on write chain 
BFFRWRT 40 Buffer being written 
BFFRREAD 20 Buffer being read 
BFFRMT 10 Buffer empty 
BFFRPRED 08 Buffer waiting for 
predecessor keing written 
BFFRWERR 04 Buffer has permanent write 
error 
BFFREXNQ 02 Existing CI ID enqueued 
BFFRPNNQ 01 Pending CI ID enqueued 
8(08) 2 BFFRPST PST prefix numbers for 
engqueue/dequeue 
8(08) 1 BFFRPSTF PST prefix number of the 
controlling task 
9(09) 1 BFFRPSTL PST prefix number of the last 
task in the chain of waiting 
tasks 
10 (OA) 2 BFFRLOCU Log count 
12 (0C) 1 BFFRUSCT Use count 
12(0C) 4 BFFRADDR Address of buffer 
16 (10) 2 BFFRUSID ID of the users who altered 
this buffer 
18 (12) 1 BFFRWCFW Next lower buffer on the 
write chain 
19 (13) 1 BFFRWCEW Next higher buffer on the 
write chain 
20 (14) 7 BFFRNCID New control interval 
identifier 
20 (14) y BFFRNCII New control interval RBA 
24 (18) 2 BFFRNDMB New DMB number 
26 (1A) 1 BFFRNACB New ACB number 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
27 (1B) 1 BFFRSW1 Flags 


28 (1C) 


28 (1C) 


29 (1D) 


30(1E) 


32 (20) 


5-18. 


BFFRNORU 80. 
BFFRLOCK 40 
BFFRREL 08 
BFFRLAST 01 


2 BFFRNPST 
1 BFFRNPSF 
1 BFFRNPSL 
2. EFFRHOLE 
BFFRLEN 
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Buffer is not reusable 
Buffer locked by logger 
Buffer is released 

Last buffer prefix for this 
subpool 


PST prefix numbers for 
enqueue/dequeue 


PST prefix number of task 
which enqueued on new CI ID 
and is first in the chain 


PST prefix number of task 
which enqueued on new CI ID 
and is last in the chain 


Length of largest space 
available in the buffer 


Length of buffer prefix 





BFPL - BUFFER POOL CONTROL BLOCK PREFIX 





DSECT Name: 


The BFPL is described as part of the general structure and description 
of DL/I kuffer pool control blocks. There is one buffer pool control 
block prefix that contains information for the entire buffer pool. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name | 


BFPLALTR 
BFPLBKWT 
BFPLCHBK 
BFPLCHWT 
BFPLCOUT 
*BFPLEXCI 
BFPLID 
BFPLIGET 
BFPLINCC 
BFPLINMA 
BFPLINPL 
BFPLINRC 
BFPLINW1 
BFPLINW2 
BFPLISTL 
BFPLLEN 
BFPLNQW1 
BFPLNQW2 
BFPLNWBK 
BFPLOSWT 
*BFPLPECI 
BFPLPRAD 
BFPLPSIF 
BFPLPSIL 
BFPLPSI1 


BFPLRDCT . 


BFPLROCO 
BFPLROCT 
BFPLSUBD 
BFPLSUIN 
*BEPLSUPO 
*BFPLSW00 
*BFPLSW80 
BFPLWERR 
BFPLWERT 


Offset 
Dec (Hex) 


28 (1C) 
36 (24) 
48 (30) 
44&(2C) 
62(3E) 
64 (40) 
0(00) 
56 (38) 
96 (60) 
72 (48) 
20(14) 
88 (58) 
88 (58) 
104(68) 
92(34) 
140 (8C) 
64(40) 
68 (44) 
40 (28) 
32 (20) 
64 (40) 
128 (80) 
124(7C) 
125(7D) 
120 (78) 
24(18) — 
63 (3F) 
16 (10) 
132(84) 
136(88) 
64(40) 
68 (44) 
68 (44) 
60 (3C) 
61(3D) 


Flag 
Code (Hex) 


00 


04 


08 
00 
80 
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RECORD LAYOUT - BFPL 


offset Field/Flag Flag 

Cec (Hex) Length Name _ Code (Hex) Meaning 

0(00) 4 BFPLID Buffer pool control block ID 
(BFPL) 

4(04) 12 *Reserved* 

16 (10) 4 BFPLROCT Number of requests received 
by the buffer handler 

20 (14) 4 BFPLINPL Number of requests satisfied 
from buffer pool 

24 (18) 4 BFPLRDCT Number of read requests 
issued 

28 (1C) 4 BFPLALTR Number of buffer alter 
requests received 

32 (20) 4 BFPLOSWT Number of writes issued 

36 (24) 4 BFPLBKWT Number of blocks written 

40 (28) 4 BFPLNWBK Number of new blocks created 
in pool 

44 (2C) 4 BFPLCHWT Number of chained writes 
issued 

48 (30) 4 BFPLCHBK Number of blocks written on 
write chain 

52 (34) f BFPLISTL Number of retrieves by key 
calls 

56 (38) 4 BFPLIGET Number of GN calls received 

60 (3C) 1 BFPLWERR Number of permanent write 
error buffers in pool 

61 (3D) 1 BFPLWERT Largest number of write error 
buffers ever in pool 

62 (3E) 1 BFPLCOUT Number of rows/columns in 
matrix currently in use 

63 (3F) 1 BFPLROCO Mask showing available 
rows/columns in matrix 

64 (40) 4 BFPLNOW1 ENQ/DEQ workarea 1. Byte 0 


indicates the following: 


BFPLEXCI 00 
BFPLPECI 04 
BEF PLSUPO 08 


ENQ/DEQ existing CI code 
ENQ/DEQ pending CI code 
ENQ/DEQ subpool code 

Bytes 1-3 contain a pointer 
to the PST prefix numbers of 
the first and last task 
waiting for the resource 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

68 (44y 4 BFPLNQW2 ENQ/DEQ workarea 2 

BFPLSWO00 Mask to turn off wait switch 
BFPLSW80 Task waiting for matrix space 

72 (48) 16 BFPLINMA Interlock detection matrix 

88 (58) 16 BFPLINW1 Interlock detection workarea 
1 

88 (58) 8 BFPLINRO 

96 (60) 8 BFPLINCC 

104 (68) 16 BFPLINW2 Interlock detection workarea 
2 

120 (78) 4 RFPLPSI1 Pointer to the PST prefix 
numbers of the first and last 
task waiting for matrix space 

124 (7CY 1 BFPLPSIF PST prefix number of the 
first task waiting for matrix 
space 

125 (7D) 1 BFPLPSIL PST prefix number of the last 
task waiting for matrix space 

126 (7E) 2 *Reserved* 

128(80) 4 BFPLPRAD Beginning address of the 
buffer prefix area 

132(84) 4 BFPLSUSD Beginniny address of the DMB 
subpool directory 

136 (88) 4 BFPLSUIN Beginning of the subpool 
information table entries 

140(8C) BFPLLEN Length of the buffer pool 


control block prefix 
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CPAC ~ HDAM/HIDAM VARIABLE LENGTH SEGMENT COMPRESSION/EXPANSION ROUTINE 
INTERFACE TABLE 


DSECT Name: DMBCPAC 


This table is described as part of the general structure and description 
of the data management block (DMB). There is one entry for each 
compressikle segment in the DMB. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 





Name Dec (Hex) Code (Hex) 
DMBCPCNM 0(00) 

DMECPCSG 8(08) 

DMBCPEP 16 (10) 

DMRECPFLG 20 (14) 

*DMBCPKEY 20 (14) 02 
DMBCPLNG 26 (1A) 

*DMBCPNIT 20 (14) 01 
DMBCPRES 28(1C) 

*DMBCPSEQ 20 (14) 08 
DMECPSGL 24(18) 

DMBCPSQF 21(15) 

DMECPSQL 22(16) 

*DMBCPVLR 20 (14) 04 
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RECORD LAYOUT - CPAC 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 8 DMBCPCNM Segment Name 
8(08) 4 DMBCPCSG Compression routine name 
16 (10) 4 DMBCPEP Entry point of compression 
routine 
20 (14) 1 DMBCPFLG Flag byte 
DMBCPSEQ 08 Segment has a sequence field 
defined 
DMBCPVLR O04 Segment is variable length 
DMBCPKEY 02 Segment has key compressio 
option 7 
DMBCPNIT 01 Initialization and 
termination processing 
required 
21 (15) 1 DMBCPSQF Length of key field minus 1 
22 (16) 2 DMBCPSQL Offset to sequence field 
24 (18) 2 DMBCPSGL Maximum segment length 
26 (1A) 2 DMBCPLNG Total length of CSECT - fixed 
lengths, constants, plus user 
data 
28 (1C) 4 DMBCPRES Reserved for intialization 
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DACS - HDAM RANDOMIZING ROUTINE INTERFACE TABLE 





DSECT Name: DMBDACS 


The HCAM randomizing routine interface takle is described as part of the 
general structure and description of the data management block (DMB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Cffset | Flag 


Name | | Dec (Hex) Code (Hex) 
DMBDARLK 16(10) 
DMBDAEYC 24(18) 
DMBDARYM 20(14) © 
CMBDACP 28 (1C) 
DMBDAEP 9(09) 
CMBCAKL 8 (08) 
DMBDANME 0(00) 
DMBCARAP 14 (OE) 
12(0C) 


DMBDASZE 


RECCRC LAYOUT - DACS 


Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 8 DMBDANME Name of address conversion 
algorithm load module 

8108) 1 DMBDAKL Root Key length minus 1 

9(09) 3 DMBDAEP Entry point to conversion 
module 

12 (0C) 2 DMBDASZE Size of this DSECT 

14 (OE) 2 DMBDARAP Number of root anchor 
pointers per block 

16 (10) 4 DMBDABLK Number of highest block 
directly addressable 

20 (14) & DMBDABYM Maximum number of bytes per 
root before overflow outside 
of directly addressable area 

24 (18) 4 DMBDABYC Current number of bytes 
consecutively inserted or 
loaded under root 

28 (1C) 4 DMBDACP Result of last address 
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conversion 





DDIR - DMB DIRECTORY 


DSECT Name: 


The DMB directory contains an entry for every DMB (data management 
klock) that can be accessed under DL/I control. 


DLZCDIR © 


The DMB directory is 


part of the DL/I nucleus and is created during DL/I system definition 


for online processing. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 


Name 


DDIRADDR 
*#DDIRBAD 
DDIRCNT 
DDIRCODE 
DDIRCOD2 
DDIRDMBL 
*#DDIREXCL 
#DDIREXSD 
#DDIRGRP 
*#DDIRHSAM 
*#DDIRINOP 
*#DDIRKBRQ 
DDIRLEN 
*#DDIRNDBM 
*#DDIRNOUP 
*DDIRNOSC 
*#DDIRNRAN 
DDIRNUMB 
*#DDIROPEN 
DDIRPPST 
*#DDIRSECL 
DDIRSYM 
DDIRVSRT 
*#DDIRWAIT 


*DDIRIGRP 


Offset 


Dec (Hex) . 


8408) 


19(13) 


12(0C) 
18 (12) 
19 (13) 
13(0D) 
19 (13) 
19 (13) 
19 (13) 
19 (13) 
18 (12) 
18(12) 
24(18) 
19 (13) 
18 (12) 
18 (12) 
19 (13) 
16 (10) 
18 (12) 
21(15) 
18 (12) 
0¢(00) 

20 (14) 
18 (12) 
19 (13) 


Flag 
Code (Hex) 


01 


10 
08 
02 
20 
20 
10 


80 
O01 
04 
40 
40 
80 


08 
O04 
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The start address of the directory (SCDDLIDM) 
and entry length (SCDDLIDL) are contained in the system contents 
directory (SCD). 


5-25 


RECORD 


LAYOUT - CDIR 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 0 DDIR Label to establish mes 
= ae address 
0100). 8  . DDIRSYM DMB name - converted: trom 
ne | eee ey | DMBNAME supplied eurang 
DBDGEN 
8(08) 4 DDIRADDR DMB address 
12(0C) 1 DDIRCNT Number of users scheduled to | 
this DMB 
13 (OL) 3 CDIRDMBL Storage required for this DMB 
16 (10) 2 DDIRNUMB DMB number of this DMB 
18 (12) 1 DDIRCODE DMB code 
DDIRSECL 80 Security locked 
DDIROPEN 40 At least one ACB is opened 
DDIRINOP 20 DMB to be opened during 
online initialization or 
during start call | 
DDIRKBRQ 10 Buffer pool space required 
for this KSDS 7 
DCDIRWAIT 0.8 System task waiting for zero 
DDIRCNT | : 
DDIRNOSC 04 Do not schedule this. DMB 
because it is stopped 
DDIRNOUP 01 Do not. schedule updates 
19 (13) 1 DDIRCOD2 DMB code. byte 2 | 
DDIRNDBM 80 DMB not present in library 
DDIRNRAN 4&0 Requested randomizing module 
not present in library 
DDIRHSAM 20 This DMB for HSAM : 
DDIREXCL 10 This DMB being used . 
exclusively 
DDIREXSD 08 Exclusive control required 
for scheduling 
DDIR1GRP 04 DMB first in shared index 
DDIRGRP Q2 DMB belongs to shared index . 
DDIRBAD 01 DMB initialization failed 
20 (14) 1 DDIRVSRT R15 VSAM return code 
21 (15) 3 DDIRPPST PPST address if DMB is used 
exclusively 
24 (18) DDIRLEN Length of one DDIR entry 
(i 
\ 
5-26 Licensed Material - Property of IBM 


DLZTWAB - TRANSACTION WORK AREA 


DSECT Name: DLZTWA 


The DLZTWA macro provides the mapping for the batch partition 
controller's transaction work area. The information is used for 
communication with: 


DL/I task termination 
CICS/VS 

Batch partition 
Sheduling MPS batch jobs 
Online message module 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
TWAEEND 202(CA) 

TWABPC 0(00) 

TWAEPCID 4(04) 

*TWAECOK 0(00) 80 
TWAEPCSV 76 (4C) 

TWACALL 40 (28) 

TWACCND 192(Cc0O) 

*TWAEOJSW 0(00) 40 
TWAMPCE 5(05) 

TWAMPCPT 1(01) 

TWAMPSFG 0(00) 

TWAMPSID 180 (B4) 

TWAMSG 148 (94) 

TWAMSGID 152(98) 

TWAMSGNC 148 (94) 

TWAMSGO0N1 ~156(9C) 

TWAMSGO 2 160(A0) 

TWAMSGO3 164(A4) 

TWAMSGO4 168 (A8) 

TWAN1PTR 32 (20) 

TWAPARMC 36 (24) 

TWAPIDTE 56 (38) 

TWAPSBDL 55 (37) 

TWAPSBN 44 (2C) 

TWAPSBNM 48 (30) 

TWAPSW 172 (AC) 

TWAPTEND 68 (44) 

TWAPTIDF 58(3A) 

TWARCODE 190 (BE) 

TWASCHDC 36(24) 

TWAWLIST ‘8(08). 

TWAXCBDL 16(10) 

TWAXCBN1 24(18) 

TWAXCBN2 20 (14) 

TWAXCB2 8(08) 

TWAXCB3 12(0C) 

TWAXNAME 182 (B6) 
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5-27 | 


RECORD LAYOUT - DLZTWAB 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 


**#*THE FOLLOWING FIELDS ARE USED FOR COMMUNICATING WITH THE DL/I TASK 
TERMINATION ROUTINE*** 


0(00) 
0(00) 


1(01) 


4(04) 


5 (05) 


0 
1 


TWABPC 


TWAMPSFG 


TWABPCCK 


TWAEOJSW 


TWAMPCPT 


TWABPCID 


TWAMPCE 


80 
40 


Start of TWABPC 


BPC flag byte: 

BPC abnormal termination 
processing completed 

EQJ processing reached for 
MPS batch partition 


Address of MPC partition 
table 


Batch partition identifier 
(F1,F2,...) 


Address of specific MPC 
partition table entry 


***THE FOLLOWING IS THE BATCH PARTITION CONTROLLER'S CICS/VS WAITM ECB 
LIST, DELIMITER, AND XECB**¥* 


TWAWLIST 


TWAXCB2 


TWAXCB3 


TWAXCBDL 


TWAXCBN2 


Start of TWAWLIST 


Pointer to BPC's XECB 
(DLZXCBn2) 


Pointer to ABEND XECB 
(DLZXCBn3) 


ECB list delimiter 
("FFFFFFFF °) 


XECB for BPC 


#*#4#THE FOLLCWING FIELDS ARE USED FOR COMMUNICATION WITH THE BATCH 


8(08) 0 
8(08) 4 
12 (OC) 4 
16 (10) 4 
20 (14) 4 
PARTITION*** 
24 (18) 8 
32 (20) & 


TWAXCBN1 


TWANIPTR 


XECB name for batch | 
initialization (DLZXCBn1) 


XECBTAB table entry address 
for batch: initialization's 
XECB (DLZXCBn1) 


***THF FOLLOWING FIELDS ARE USED FOR THE BATCH PARTITION CONTROLLER'S 
DL/I SCHEDULING CALL PARAMETER LIST AND THE PSBNAME TO BE.) SCHEDULED*** 


36 (24) 
36 (24) 
40 (28) 
44 (2C) 


48 (30) 


5-28 


0 
4 
4 
4 


7 
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TWASCHDC 
TWAPARMC 
TWACALL 
TWAPSBN 


TWAPSBNM 


Start of TWASCHDC 

Bolter: to parameter sount 
Pointer to call function 
Pointer to PSB: name 


PSB name (PSBNAME) 





Of fset Field/Flkag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 


55 (37) i TWAPSBDL PSB name delimiter 


**#*#THE FOLLOWING TABLE CONTAINS THE PARTITION IDENTIFIERS USED TO 
IDENTIFY THE BATCH PARTITION ASSOCIATED WITH MESSAGES DLZ082I, DLZ084I, 
AND DL2Z1031*** 


56 (38) 20 TWAPIDTB Start of TWAPIDTB 

56 (38) 2 Unnamed Background partition ID (BG) 
58 (3A) 2 TWAPTIDF Foreground partition ID (F6) 
60 (3C) 2 Unnamed Foreground paveieion ID (F5) 
62 (3E) 2 Unnamed Foreground partition ID (F4) 
64 (40) 2 Unnamed Foreground partition ID (F3) 
66 (42) 2 Unnamed Foreground partition ID (F2) 
68 (44) 2 TWAPTEND Foreground partition ID (F1) 
70 (46) 2 Unnamed **Reserved** 

72 (48) 2 Unnamed **Reserved** 

74 (4A) 2 Unnamed **Reserved** 


***BATCH PARTITION CONTROLLER REGISTER SAVE AREA*** 


76 (4C) 72 TWABPCSV BPC register save area (18 
fullwords) 


*#**#THE FOLLOWING ARE THE PARAMETER LIST POINTERS, PARAMETERS, AND 
MESSAGE FILLERS PASSED TO THE DL/I ONLINE MESSAGE MODULE (DLZERMSG) FOR 
ALL EPC MESSAGES*** 


148 (94) 0 TWAMSG Start Of TWAMSG 


148 (94) 4 TWAMSGNO Message number pointer for 
all BPC messages 


152 (98) 4 TWAMSGID Partition ID pointer (for 
messages DLZ082I, DLZO0O84I, 
and DLZ1031I1) 


BPC module ID pointer (for 
message DLZ1041) 


156 (9C) 4 TWAMSGO1 Module name pointer (for 
messages DLZ082I and DLZ084I) 


Termination condition pointer 
and delimiter (for message 
DLZ103I1) 


CICS ABEND code pointer and 
delimiter (for message 
DLZ104T) 

160 (A0) 4 TWAMSGO2 XECBTAB TYPE= pointer (for 
messages DLZ082I and DLZ084I) 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name | Code (Hex) Meaning | 


164 (A4) 


168 (A8) 


172 (AC) 


180(B4) 


18 2 (B6) 


190 (BE) 
192 (C0) 


202 (CA) 


5-30 


4 TWAMSG03 


4 TWAMSGO4 
8 TWAPSW 

2 TWAMPSID 
8 TWAXNAME 
2 TWARCODE 
10 TWACOND 


4 TWABEND 
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PSW pointer and delimiter 
(for message DLZ104I) 


XECBTAB XECB=XECBname pointer 
(for messages DLZ082I and 
DLZ0841) 

Return code pointer and 
delimiter (for messages 
DLZ082I and DLZ0841) 

Program interrupt PSW 

Batch partitiion ID 


XECBTAB XECB=XECBname 
(DLZXCBnn) 


Return code 


BPC termination condition 
(abnormally or normally) 


CICS ABEND completion code 
(ASRA) 


DMB = DMB PREFIX 





DSECT Name: DMB 


The DMB prefix is described as part of the general structure and 
description of the data management block (DMB). 


ALPHAPETIC LIST CF FIELD/FLAG NAMES 


Field/Flag 
Name 


DMBDALGR 
*DMEHC 
*DMBHI 
*DMBHSAM 
*DMBISAM1 

DMELCDCE 

DMBLENTE 
*DMBNDEX 

DMBNREF 

DMBORG 

DMBPDATA 

DMBPPRLN . 

DMBPPRND 

DMBSECTB 
*DMBSHIS 

DMBSIZE 
*DMBSSAM 
*DMBV11 


offset 
Dec (Hex) | 


12(0C) — 


6 (06) 
6 (06) 


6(06) 


6(06) 
7007) 
2002) 
6(06) 


12(0C) 


6(06) 


8 (08) 
16(10) 
16(10) 


4(04) 
6(06) 
0(00) 
6(06) 
0(00) 


Flag 
Code (Hex) 


06 
07 
05 
02 


08 


01 


04 
80 
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Segoe E 


RECORD LAYOUT - DMB 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0X00) 2 DMESIZE DMB size 
DMBV11 80 DL/I version 1.1 or later. 
2(02) 2 DMBLENTB Offset from DMB to first PSDB 
(DMBPSDB) 
4(04) 2 DMBSECTB Offset from DMB to end of 
PSDBs + 1 
6(06) 1 DMBORG DMB organization 
DMBSHIS 01 Simple HISAM 
DMBISAM1 02 HISAM 
DMBSSAM 04 Simple HSAM 
DMBHSAM 05 HSAM ? 
DMBHD 06 HDAM 
DMBHI 07 HIDAM 
DMBNDEX 08 Index data base 
7007) 1 DMBLDDCB ACB number (minus 1) of 
sequential data set used to 
write index records on data 
| base load 
808) 2 DMBPDATA Length of system data in 
index data base (protected) 
10 (0a) 2 *Reserved* 
12 (0C) 1 DMBNREF Number of entries in external 
reference takle 
12 (0C) 4 DMBDALGR Address of direct algorithm 
communication table if HDAM 
(DMBDACS); LRECL number if 
HSAM 
 16(10) DMBPPRND End + 1 of DMB prefix. This 
‘ is also the address of the 
first ACB extension 
(DMBACBXT) 
16 (10) DMBPPRLN Length of DMB prefix 
(DMBPPRND winus DMB) 
‘i 
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DPPCB =~ PCB DOCPE VECTOR TABLE 
DSECT Narre: DPPCB 
The PCB dope vector table is described as part of the general structure 


and description of the program specification block (PSB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec(Hex) _ Code (Hex) 
DPPCBDBD 0(00) 

DPPCBJCB 32(20) 

DPPCBKFD 52 (34) 

DPPCBLEV 8(08) 

DPPCBLKY 44 (2C) 

DPPCBPRO 28 (18) 

DPPCBSFD 36(24) 

DPPCRBSTC 16 (10) 

DPPCPNSS 48 (30) 
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RECORD LAYOUT - DPPCB 


Offset 


Dec (Hex) Length Field Name Meaning 


0(00) 


4(04) 


6(06) 


8(08) 


12 (0C) 


14 (OE) 


16 (10) 


20 (14) 


22 (16) 


24 (18) 


28 (1C) 


30 (1E} 


ov 34k 


4 


DPPCBDBD 


Maximum Length 


Current length 


DPPCBLEV 


Maximum length 


Current Length 


DPPCBSTC 


Maximum length 


Current Length 


DPPCBPRO 


Maximum length 


Current Length 


The address of the location that 
contains DBPCBDBD 


Maximum length: Halfword binary 

number which specifies number of 
storage units allocated for the 

string; byte count if character, 
bit count if bit 


Current length: Halfword binary 
number which specifies the number 
of storage units, within the 
maximum length, currently 
occupied by the string 


The address of the location that 
contains DBPCBLEV 3 


Maximum length: Halfword binary 

number which specifies number of 
storage units allocated for the 

string; byte count if character, 
bit count if bit 


Current length: Halfword binary 
number which specifies the number 
of storage units, within the 
maximum length, currently 
occupied by the string 


The address of the location that 
contains DBPCBSTC 


Maximum length: Halfword binary 

number which specifies number of 
storage units allocated for the 

String; byte count if character, 
bit count if bit 


Current length: Halfword binary 
number which specifies the number 
of storage units, within the 


maximum length, currently 


occupied by the string 


The address of the location that 
contains DBPCBPRO 


Maximum length: Halfword binary 
number which specifies number of 
storage units allocated for the 
string; byte count if character, 
bit count if bit 


Current length: Halfword binary 
number which specifies the number 
of storage units, within the 
maximum length, currently 
occupied by the string 
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eon 


Of fset 


Dec (Hex) Length Field Name Meaning 


32 (20) 


36 (24) 


40 (28) 


42 (2A) 


44 (2C) 


48 (30) 


92 (34) 


56 (38) 


58 (3A) 


4 


4 


DPPCBJCB 


DPPCBSFD 


Maximum length 


Current Length 


DPPCBLKY 


DPPCPNSS 


DPPCBKFD 


Maximum length 


Current Length 


The address of the location that 
contains DBPCBJCB 


The address of the location that 
contains DBPCBSFD 


Maximum length: Halfword binary 
number which specifies number of 
storage units allocated for the 
string; byte count if character, 
bit count if bit 


Current length: Halfword binary 
number which specifies the number 
of storage units, within the 
maximum length, currently 
occupied by the string 


The address of the location that 
contains DBPCBLKY 


The address of the location that 
contains DBPCBNSS | 


The address of the location that 
contains DBPCBKFD 


Maximum length: Halfword binary 

number which specifies number of 
storage units allocated for the 

string; byte count if character, 
bit count if bit 


Current length: Halfword binary. 
number which specifies the number 
of storage units, within the 
maximum length, currently 


occupied by the string 
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DSG ~- DATA SET GROUP 


DSECT Name: DSG 


The DSG is described as part of the general structure and description of 
the program specification block (PSB). 


Note: With the exception of the first three characters of each 
field/flag name (DSG instead of JCB) the layout of the data set group is 
identical to the layout of the "DSG Section" of the job control block 


(JCB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name 


*DSGBLDEL 
DSGBOFF 
*DSGCOMMD 
*DSGCONST 
*DSGDATX 
DSGDCBA 
DSGDCBNO 
DSGDMBNO 
DSG DSGLN 
*DSGDSOHD 
*DSGDSOHI 
*DSGDSOHS 
*DSGDSOH1 
*DSGDSOLS 
*DSGDSORI 
*DSGDSOUP 
*DSGDUPS 
*DSGHDULD 
DSGHSADD 
*DSGHSWLR 
DSGINDA 
DSGINDB 
DSGINDC 
DSGINDG 
DSGLROOT 
DSGNOSAM 
*DSGPADKY 
*DSGPREM 
*DSGRETD 
*DSGVL 
*DSGXP 


Offset 


Dec (Hex) 


15 (0F) 
12(0C) 
16 (10) 
15 (OF) 
16 (10) 
0(00) 
6 (06) 
4(04) 
28(1C) 
7€07) 
7(07) 
7(07) 
7007) 
7(07) 
7(07) 
7(07) 
15 (0F) 
15 (OF) 
8 (08) 
15 (OF) 
7007) 
14 (OE) 
15 (OF) 
16 (10) 
24 (18) 
20(14) 
15 (0F) 
16 (10) 
16 (10) 
16 (10) 
16 (10) 


Flag 
Code (Hex) 


80 


02 
20 
40 


20 
10 
02 
04 
80 
44 
01 
08 
40 


01 


10 
80 
04 
08 


10 
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RECORD LAYOUT ~- DSG 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) DSGDCBA Address of the ACB extension 
for this data set (KSDS ACB 
extension if HISAM) 
4(O4) DSGDMBNO DMB number for this DSG 
6(06) DSGDCBNO ACB number of ACB in DMB 
(KSDS ACB number if HISAM) 
7(07) DSGINDA JCB indicators 
DSGDSOLS 80 This is last DSG in JCB 
DSGDSORI Gy Data set group is root in 
index 
DSGDSOHD 20 Data set group is HDAM 
DSGDSOHI 10 Data set group is HIDAM 
DSGDSOH1 O04 Data set group is HISAM or 
Simple HISAM 
DSGDSOHS 02 Data set group is HSAM or 
simple HSAM 
DSGDSOUP 01 Data set group is SHSAM or 
SHISAM 
8(08) DSGHSADD HSAM I/O area after open 
12 (0C) DSGBOFF HSAM block size 
14 (OE) DSGINDB (Not used in DL/I DOS/VS) 
15 (OF) DSGINDC JCB indicators 
DSGBLDEL 80 Delete/replace DSG 
DSGHDULD 40 HD unload is running 
DSGCONST 20 Index data set contains 
: constant 
DSGPADKY 10 Search argument not equal to 
key length 
DSGDUPS 08 Nonunique secondary index 
keys | 
DSGHSWLR 01 HSAM wrong length record 
16 (10) DSGINDG DSG indicators - retrieve's 
variable length flags , 
DSGPREM 80 Segment prefix moved to work 
area 
DSGDATX 40 Segment completely expanded 
DSGXP 10 Force complete segment 
expansion 
DSGVL 08 The variable length routine 
has been entered for segment 
DSGRETD O04 Data return call 
DSGCOMMD 02 Path return call 
17 (11) **Reserved ** 
20 (14) DSGNOSAM Retrieve's HSAM ID 
24 (18) DSGLROOT RBA of current root 
28 (1C) DSGDSGLN Length of each DSG section of 


JCB 
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FDB ~- FIELD DESCRIPTION BLOCK. 
DSECT Name: FDB 
The field description block (FDB) is described as part of the general 


structure and description of the data management block (DMB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 

Name | Dec (Hex) Code (Hex) 

*F DBCHAR 10 (0A) 03 

FDEDCENF 10 (0A) 

FDBEND 12(0C) (See XDFLD fields) 
*F DBEQOK 10 (0A) 20 

FDBFLENG 11 (OB) 

*F DBFP 10 (0A) 04 

*F DBHEX 10 (OA) 01 

*FDBKFY 10 (0A) 40 

*FDBLAST 10 (OA) 80 

FDBLEN 11(0B). (See DFLD fields) 
FDBOFFCK 8 (08) (See /CK fields) | 
FDBOFFST 8(08) 

*FDBPACK 10 €0A) 02 

*F DBSPEC 10 (OA) 10 

FDBSYMBL 000) 
FDBSYSLN 10 (0A) (See /CK fields 
FDBSYSNM 0(00) (See “CK fields) 
*F DBTYPE 10 (0A) 07 

*FDBXDCON 10 (0A) 08 (See XDFLD fields) 
*F DBXDEQ 10 (0A). 01 (See XDFLD fields) 
FDBXDFLG 10 (0A) (See XDFLD fields) 
FDEXDLEN 12(0C) (See XDFLD fields) 
*F DBXDLST 10 (OA) : 80 (See XDFLD fields) 
FDBXDNM 0(00) (See XDFLD fields) 
FDBXDSEC 8(08) (See XDFLD fields) 
*F DBXDSPC 10 (OA) 10 

*FDBXDSSQ 10 (0A) 04 (See XDFLD fields) 
*FDBXDSSS | ~10(0A). 20 

*FDBXDSYM . 10 (0A) 4O 

*F DBZC 07 


 10(0A) 
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RECORD LAYOUT - FDB 


Offset Field/Flag Flag 
Dec (Hex) Length Name _ Code (Hex) Meaning 
0(00) 8 FDBSYMBL Symbolic name 
8(08) 2 FDBOFFST Field offset from segment 
beginning 
10 (0A) 1 FDBDCENF Flags 
FDBLAST 80 Last FDB for this segment 
FDBKEY 40 This is segment's sequence 
field 
FDBEQOK 20 Duplicate sequence fields 
allowed _ 
FDBSPEC 10 Special FDB (XDFLD, /CK, or 
/SK) 
FDBTYPE 07 Field format bits 
FDBZD 07 Field is zoned decimal 
FDBFP 04 Field is floating point 
FDBPACK 02 Field is packed decimal 
FDBHEX 01 Field is hexadecimal 


FDBCHAR 03 


11 (OB) 1 FDBFLENG 


Field is character 


Executable field length 


***This describes the /CK system-related field*** 


0(00 3 FDBSYSNM 
3(03) 5 

8(08) 2 FDBOFFCK 
10 (0A) 2 FDBSYSLN 


***This describes the XDFLD*** 


0(00) 8 FDBXDNM 
8(08) 2 FDBXDSEC 
10 (0A) 1 FDBXDF LG 


FDBXDLST 80 
FDBXDSYM 40 
FDBXDSSS 20 


FDBXDSPC 10 
FDBXDCON 08 
FDBXDSSQ 04 
FDBXDEQ O01 


11 (0B) 1 FDBXDLEN 
12 (0C) FDBEND 
12 (0C) FDBLEN 


Constant '/CK‘ 
Remainder of field name 


Offset from beginning of 
concatenated key 


Bits 0-3 = X'0001‘; Bits 4-15 
= length minus 1 


FDB Name 


Offset to Pecongary list for 
this index 


Flags 

Last FDB 

Pointer is symbolic 

Pointer is contained in 
SOURCE/SUBSEQ data 

Special FDB 

Constant present 

SUBSEQ present 

Index segment same as index 
source segment 


Length of search field 
End Of FDB entry 


Length of FDB entry (FDBEND 
Minus FDBSYMBL) 
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FER - FIELD EXIT ROUTINE INTERFACE LIST 


DSECT Name: FER 


The FER (Field Exit Routine Interface List) is used to pass information 
to the named user-written exit routine whenever a designated field is to 


be processed. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name. 


FERPCSC 
*FERPCSCT 
*FERPCSFE 
*FERPCSNT 
*FERPCSOK 
*FERPCSTC 

FERPEC 

FERPFNCT 

FERPFSBA 
*FERPGET 
*FERPINS 

FERPLEN 

FERPPFA 

FERPPFL 

FERPPSA 
*FERPPUT | 
*FERPREP 
*FERPRET 
*FERPSSA 

FERPUFA 

FERPUFL 

FERPUSA 

FERPUWA 
*FERPXDF 


Offset 
Dec (Hex) 


2(02) 
2(02) 
2(02) 
2(02) 
2(02) 
2(02) 
0(00) 
1(01) 
28 (1C) 
0(00) 
1(01) 
80 (50) 
12(0C) 
10 (OA) 
4 (04) 
0(00) 
1(01) 
1¢€01) 
1(01) 
24(18) 
22(16) 
16 (10) 
32 (20) 
1(01) 


code 
(Char) 


Hi GQ) 0 POD 


OO DW td 
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RECORD LAYOUT - FER 


offset Field/Flag Code 

Dec(Hex) Length Name (Char) Meaning 

0(00) 1 FERPEC Entry code 

FERPGET G Get function 
FERPPUT P Put function 
1(001) 1 FERPFNCT Function code 
FERPRET G Retrieve segment conversion 
FERPINS I Insert 
FERPREP R Replace 
FERPSSA S Retrieve SSA conversion 
FERPXDF X Retrieve SSA conversion 
for XDFLD 

2(02) 1 FERPCSC Conversion status code 

FERPCSOK OK 

FERPCSNT A Numeric truncation error 
FERPCSCT B Character truncation error 
FERPCSFE Gs Format error 

FERPCSTC D Type conflict 

3(03) 1 **Reserved** 

4(04) 4 FERPPSA Physical segment address (if 
variable length, points to 
two byte length field) 

8(08) 2 **Reserved ** 

10 (0A) 2 FERPPFL Physical field length (zero 
if virtual field) 

12 (0C) 4 FERPPFA Physical field address (zero 
if virtual field) 

16 (10) 4 FERPUSA User segment address 

20 (14) 2 **Reserved** 

22 (16) 2 FERPUFL User field length 

24 (18) 4 FERPUFA User field address 

28 (1C) 4 FERPFSBA FSB address 

32 (20) 4g FERPUWA User work area 

80 (50) 0 FERPLEN Length of field exit routine 


interface list 
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FERT ~ FIELD EXIT ROUTINE TABLE 





DSECT Name: FERT 


The FERT (Field Exit Routine Table) is used to hold information about a 
user-written exit routine. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


‘soe 


Field/Flag Offset Flag 

Name Dec (Hex) Code (Hex) 
*F ERTDUMP 20(14) 80 
FERTFLAG 20(14) 

FERTLEN 24(18) 

FERTNAME 0(00) 

FERTPRES 16 (10) 

FERTRTEP 8 (08) 

FERTRTLG 12(0C) 


RECORD LAYOUT - FERT 


Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 


0(00) 
8(08) 
12 (0C) 
16 (10) 


20 (14) 


21 (15) 
24 (18) 


8 


4 


FERTNAME 
FERTRTEP 
FERTRTLG 
FERTPRES 


FERTFLAG 


FERTDUMP 


FERTLEN 


Module name 
Module entry point 
Module length 


Pointer to next FERT entry 


Control block dumped 
**Reserved** 


Length of field exit routine 
table 
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FSB - FIELD SENSITIVITY BLOCK 
DSECT Name: FSB 
The FSB (Field Sensitivity Block) is used to hold information about a 


field which has been defined with a SENFLD statement during PSBGEN. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


10(0A) 


Field/Flag Offset Flag 
Name | Dec (Hex) Code (Hex) 
FSBCHAIN 28(1C) 

*FSBCHAR 10(0A) 03 
*FSBCR 11(0B) 20 
*F SBDPF 10(0A) 10 
*#F SBEQOK 10 (0A) 20 
FSBFDBP 0(00) 

*FSBFER 16(10) 20 
FSBFERTA 24(18) 

FSBFLAG 11(0B) 

FSBFLDNM 0(00) 

*FSBFP 10(0OA) 04 
*F SBHEX 10(0A) 01 
*FSBIV 16(10) 4g 
FSBIVA 20(14) 

*FSBKEY 10 (0A) 40 
*FSBLAST 10(QA) 80 
FSBLEN 32(20) 

*FSBNR. 16(10) 08 
*FSBOVF 11(0B) 40 
*F SBPACK 10(0A) 02 
FSBPCHA 4U(O4) 

FSBPHYAD 6 (06) 

FSBPVLEN 12(0C) 

FSBPVLOC 8(08) 

FSBPVTYP 10(0A) 

*FSBSSA 11(0B) 80 
*FSBTYPE 10 (0A) 07 
*FSBUCHAR  ~16(10) 03 
*FSBUFP 16(10) 04 
*FSBUHEX . 16(10). 01 
*FSBUPACK -16(10) 02 
FSBUVLEN 18(12) 

FSBUVLOC 14(0E) 

FSBUVTYP 16(10) 

*FSBUZD 16(10) 07 
*FSBVF 16(10) 10 
*FSBZD 07 
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RECORD LAYOUT - FSB 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 8 FSBFLDNM Field name 
0(00) 4 FSBFDBP FDB address (ACBGEN only) 
4(04) 2 FSBPCHA Physical view chain pointer 
(ACBGEN only) 
6(06) 2 FSBPHYAD Field physical adjustment 
factor (ACBGEN only) 
8(08) 2 FSBPVLOC Displacement in physical 
segment 
10 (0A) a FSBPVTYP Physical field type 
FSBLAST 80 Last FSB 
FSBKEY 40 Sequence field 
FSBEQOK 20 Duplicate sequence allowed 
FSBDPF 10 Field is in destination 
parent 
FSBTYPE 07 Field format bits 
FSBZD 07 Field format is zoned decimal 
FSBFP 04 Field format is floating 
point 
FSBCHAR 03 Field format is character 
FSBPACK 02 Field format is packed 
decimal 
FSBHEX 01 Field format is binary 
11 (0B) 1 FSBFLAG Flags 
FSBSSA 80 Field may be used in an SSA 
FSBOVF 40 Field has subfields 
FSBCR 20 Conversion required 
12 (0C) 2 FSBPVLEN Physical field length — 
(executable) 
14 (OE) 2 FSBUVLOC Field displacement in user's 
view 
16 (10) 1 FSBUVTYP User's field type 
FSBIV 4QO Initial value specified 
FSBFER 20 Field exit routine specifie 
FSBVF 10 Field is virtual | 
FSBNR 08 Replace prohibited 
FSBUZD 07 User field format is zoned 
decimal 
FSBUFP 04 User field format is floating 
point 
FSBUCHAR 03 User field format is 
character 
FSBUPACK 02 User field format is packed 
decimal 
FSBUHEX 01 User field format is binary 
17 (11) 1 | | **Reserved** 
18 (12) 2 FSBUVLEN User's field length 
(executable) 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
20 (14) 4 FSBIVA Pointer to specified initial 
value 
24 (18) 4 FSBFERTA Field exit routine table 
entry address 
28 (1C) 4 FSBCHAIN Chain pointer for ACBGEN 
32 (20) 0 FSBLEN Length of FSB entry 
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JCB - JOB CONTROL BLOCK 
DSECT Name: JCB 
The JCB is described as part of the general structure and description of the 


program specification block (PSB). 


ALPHABETIC LIST OF FIELDAFLAG NAMES 





Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
*JCBALLEX 64(40) 04 
*JCEREBLDEL 179 (B3) 80 
JCBBOFF 176 (BO) 

JCBCODE 60 (3C) 

*JCBCOMMD 180(B4) 02 
*JCBCONST 179 (B3) 20 
*JCBDATX 180(B4) 40 
JCBDCBA 164 (A4) 

JCBDCBNO 170 (AA) 

*JCBDEFDL 60 (3C) 40 
*JCBDLET 148(94) 02 
JCBDMBNO 168 (A8) 

*JCBDOPI 64 (40) 08 
JCBDSGLN 188 (BC) 

*JCBDSOHD 171 (AB) 20 
*JCBDSOHI 171 (AB) 10 
*JCBDSOHS 171 (AB) 02 
*JCBDSOH1 171 (AB) 04 
*JCBDSOLS 171 (AB) 80 
*JCBDSORI 171 (AB) 4& 
*JCBDSOUP 171 (AB) 01 
*JCBDUPS 179 (B3) 08 
*JCBFLS 64 (40) 01 
*JCBHDULD 179 (B3) 4Q 
JCBHSADD 172 (AC) 

*JCBHSWLR 179 (B3) 01 
JCBINDA 171 (AB) 

JICBINDB 178(B2) 

JCBINDC 179 (B3) 

JCBINDG 180 ¢B4) 

*JCBISRT 148(94) 01 
*JCBKEYX 180 (B4&) 20 
JCBLEVND G(O4 

JCBLEVTE 0(00) 

JCBLEV1C 32(20) 

J CBLROOT 188 (BC) 

JCBLVC 65(41) 

JCBLVT 64(40) 

JCBMKYL 38 (26) 

*JCBMLPOS 60 (3C) 08 
*JCBNODEQ 148(94) 80 
J CBNOSAM 184 (B8) 

*JCBNTFD 148 (94) 08 
*JCBOPEN 61¢3D) 80 
*JCBORGHD 61 (3D) 20 
*JCBORGHI 61(3D) 10 
*JCBORGHS 02 


61 (3D) 
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Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
*JCBORGH1 61 (3D) 04 
J CBORGN 61(03D). 

+JCBORGRI 61(3D) 44 
*JCBCRGSH 61(3D) 05 
*JCBORGSS 61 (3D) 01 
*JCBPADKY 179 (B3) 10 
JCBPC 66 (42) 

*JCBPCHK 148 (94) 20 
JCBPOP 67 (43) 

*JCBPPENQ 148 (94) 10 
*JCBPREM 180 (B4) 80 
J CBPRESF 63(3F) 

JCBPREVF 30(1E) 

JCBPREVR 31(1F) 

JCBPRLEN 188 (BC) 

*JCBRAP 148 (94) 40 
*JCBRDREQ 60 (3C) 01 
JCBRES1 40 (28) 

JCBRES2 44 (2C) 

JCBRES3 48 (30) 

JCBRES4Y 52(34) 

JCBRES5 56 (38) 

*JCBRETD 180 (B4) 04 
*JCBRETDL 60 (3C) 20 
*JCBRTIST 60 (3C) 02 
J CBRWKF 62(3E) 

JCBSDBND 12(0C) 

JCESDB1 8(08) 

*JCBSGRET 60 (3C) O4 
JCBSIZE 36 (24) 

*JCBSKPG 148 (94) 04 
JCBSTOR1 68 (44) 

JCBSTOR2 72(48) 

JCBSTOR3 76 (4C) 

JCBSTOR4Y 80(50) 

JCBSTORS5 84 (54) 

JCBSTOR6 88 (58) 

JCBSTOR7 92(5C) 

JCBSTOR8 96 (60) 

*JCBSWAP 179 (B3) 01 
+JCBTAREX 60(3C) 10 
*JCBTARPR 60 (3C) 80 
JCBTRACE 16 (10) 

*JCBVL 180 ¢B4) 08 
JCBWKRO 100 (64) 

JCBWKR1 104 (68) 

JCBWKR2 108 (6C) 

JCBWKR3 112(70) 

JCBWRK4Y 116(74) 

JCBWKRS 120(78) 

JCBWKR6 124(7C) 

JCBWKR7 128 (80) 

JCBWKR8 132(84) 

JCBWKRY 136(88) 

JCBWKR10 140 (8C) 

JCBWKR11 144 (90) 

JCBWKR12 148 (94) 

JCBWKR13 152(98) 

JCBWKR1i4 156 (9C) 

JCBWKR15 160 (AO) 

JCBWK12A 148(94) 

JCBWK12B 149 (95) 
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5-47 


Field/Flag Offset Flag 


Name 


*JCBXP 


5-48 


Dec (Hex) — . Code (Hex) 


180(B4) 10 
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RECORD LAYOUT - JCB 


Offset Field/Flag Flag 

Dec (Hex) Length Name __ Code (Hex) Meaning 

0(00) 4 JCBLEVTB Address of level table 

4(048) 4 JCBLEVND Address of end of level table 
+1 

8(08) Q JCBSDB1 Address of first SDB entry 
(roots) 

12 (OC) 4 JCBSDBND Address of end of SDBs + 1 

16 (10) 14 JCBTRACE Prior 7 functions followed by 


return code 


DL/AI FUNCTION CODES 


The following calls require a PCB and will be traced in JCBTRACE. Any 
call not requiring a PCB is not put in the trace table. However, the 
function code appears in JCBPREVF or JCBPREVR. 


Name _ Code (Hex) Meaning 

FUNCGU 01 *GU* Get Unique 

FUNCGHU 01 "GHU' Get Hold Unique 

FUNCGN 03 "GN* Get Next 

FUNCHHN 03 *"GHN* Get Hold Next 

FUNCGNP 04 "GNP* Get Next Within Parent 
FUNCGHNP 04 "GHNP* Get Hold Next Within Parent 
FUNCDRTY 20 Delete/Replace 

FUNCREPL 21 "REPL* Replace 

FUNCDLET 22 "DLET" Delete 

FUNCISTY GO "“ISRT° Insert 

FUNCISRT Qi Insert 

FUNCASRT 42 DL/I Utility Insert 


The following codes must have a PCB 


FUNCCHKP 85 
FUNCPCBM 90 


The following codes do 


FUNCUNLD AO 
FUNCGSCD Al 
FUNCTERM A3 


DL/I FUNCTION TYPES 


"CHKP® checkpoint 
PCB Call for MPS 


not require a PCB 
“UNLD*® Unload Call 


"GSCD* Get SCD Call 
"TERM" Termination Call 


FUNCGNTY 80 Get Next Type 

FUNCGUTY 40 Get Unique Type 

FUNCPATY 20 Parent Type 

FUNCHOTY 08 Hold Type 

30 (1E) 1 JCBPREVF Prior function 

31 (1F) 1 JCBPREVR Prior return code (right 


byte) | : 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
32 (20) Address of first level table 


36 (24) 
38 (26) 


40 (28) 


44 (2C) 
48 (30) 
92 (34) 
56 (38) 
60 (3C) 


9~50 


4 JCBLEV1C 


2 JCBSIZE 

2 JCBMKYL 

4 JCBRES1 

4 JCBRES 2 

4 JCBRES3 

& JCBRES4 

4 JCBRES5 

1 JCBCODE 
JCBTARPR 
JCBDEFDL 
JCBRETDL 


JCBTAREX 
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80 
40 
20 


10 


entry in call; Address of 
lowest level table entry 
succesfully processed by 
retrieve 


PCB plus JCB size 


Maximum length of key 
feedback area 


Call characteristics set by 

call analyzer 

JCBRES1 = 

x*80° No SSAS 

xXx"40Q° Qualified SSAs 

X* 20° Unqualified SSAs 

X*10° Multiple SSAs 

X"08* Multiple unqualified SSAs 

Xx" 04! Qualified SSA after an 
unqualified SSA 

X*Q2" Last SSA qualified 


JCBRES1 + 1 = 

x"O4* Call has C command code 

x*02* Call has T command code 

x*01°" JCBLEV1C has been filled 
on this call 


JCBRES1 + 2 = 
X*80* Any level qualified on 
data 
X" 40" Any level had D command 
| code 
x* 20" Qualified SSA follows 
D command code 


JCBRES1 + 3 = 

x*80" Field is not in sublist 

Xx"*°4o* Qualification field is 
in logical parent 

x* 01" This set has a key field 

Action modules work area 

Action Modules work area 

Action Modules work area 


Action modules work area 


Inter-module communications 
Switch 


- DLZPOST update twin pointers 


only 7 

Re-insert of a deleted © 
segment 

Return deleted segment for HD 
unload 

Reposition for GN (no SSA) 
with multiple positioning | 


Of fset 


Field/Flag Flag 


Dec (Hex) Length Name _ Code(Hex) Meaning 
JCBMLPOS 08 Retrieve keeping multiple 
positions 
JCBSGRET O4 Used in positioning after not 
found 
JCBRTIST 02 Retrieve positioning for 
| insert 
JCBRDREQ 01 DLZSKPG start at next 
occurence of segment 
61 (3D) 1 JCBORGN Open switch and composite 
organization of all SDBs in 
the JCB 
JCBOPEN 80 Open done for all data sets 
in the JCB 
JCBORGRI Gu Organization is root of index 
JCBORGHD 20 Organization is HDAM 
JCBORGHI 10 Organization is HIDAM 
JCBORGSH 05 Organization is simple HISAM 
JCBORGH1 04 Organization is HISAM 
JCBORGHS 02 Organization is HSAM 
JCBORGSS 01 Organization is simple HSAM 
62 (3E) 1 JCBRWKF Retrieve's working function 
63 (3F) 1 JCBPRESF Present coded function (see 
DL/I Function Codes) 
64 (40) 1 JCBLVT Switches used in accessing 
segments via DLZSKPG routine 
JCBDOPI 08 Program isolation is to be 
done for associated PCB 
JCBALLEX O04 All sensitive segments have 
exclusive intent 
JCBFLS 01 At least one segment has 
field level sensitivity (used 
by call analyzer) 
65 (41) 1 JCBLVC Level of segment being 
searched for by retrieve 
66 (42) 1 JCBPC Physical code of segment 
being searched for by 
retrieve 
67 (43) 1 JCBPOP Parent level for within 
| parent calls 
68 (44) 4 JCBSTOR1 Insert's use across I/O or 
calls 
72 (48) 4 JCBSTOR2 Insert's use across I/O or 
calls 
76 C&C) 4 JCBSTOR3 Insert's use across I/O or 
calls 
80 (50) 4 JCBSTOR4 Address of last segment read 


- referenced by label BEGBUF 
in retrieve 
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Offset 


Field/Flag Flag 


Dec(Hex) Length Name Code (Hex) _ Meaning 

84 (54) y JCBSTORS Current segment RBA - 
referenced by label CURTTR in 
retrieve 

88 (58) 4 JCBSTOR6 Retrieve’s use across I/O or 

: calls 

92 (5C) 4 JCBSTOR7 Contains switches for 
positive check phase - 
referenced by label KEEPIT in 
retrieve 

96 (60) 4 JCBSTOR8 Work area for retrieve 

100 (64) 4 JCBWKRO Action modules work area 

104 (68) 4 JCBWKR1 Action modules work area 

108 (6C) 4 JCBWKR2 Action modules work area 

112(70) qy JCBWKR3 Action modules work area 

116 (74) 4 JCBWKR4 Action modules work area 

120 (78) 4 JCBWKR5 Action modules work area 

124(7C) i JCBWKR6 Action modules work area 

128 (80) 4 JCBWKR7 Action modules work area 

132 (84) ub JCBWKR8 Action modules work area 

136 (88) 4 JCBWKR9 Action modules work area 

140(8C) 4 JCBWKR10 Action modules work area 

144 (90) 4 JCBWKR11 Action modules work area 

148 (94) u JCBWKR12 Action modules work area 

148 (94) 4 JCBWK1 2A Program isolation switches 


(retrieve only) 

No dequeue processing; all 
level table entries empty 
after CHKP, TERM, etc. 

Root anchor pointer enqueued 
(HDAM only) 

DLZPCHK calling DLZPOST 
(enqueue not required) 
DLZKDTL enqueued on physical 
parent searching on data 
field 

DLZPCHK processing not found 
condition 

DLZDEQ should release all 
outstanding enqueues 

ENQ/DEQ required in DLZPCHK 
due to delete 

Indicates DLZHIDA or DLZHDAM 
is accessing destination 
parent during a logical child 
insert 


JCBNODEQ 80 


JCBRAP 40 
JCBPCHK 20 


JCBPPENQ 10 


JCBNTFD 08 
JCBSKPG 04 
JCBDLET 02 


JCBISRT 01 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

149 (95) 3 JCBWK1 2B Action modules work area 
152 (98) u JCBWKR13 Action modules work area 
156 (9C) 4 JCBWKR1i4 Action modules work area 
160 (A0) 4 JCBWKR15 Action modules work area 


***Start of each DSG section of JCB*** 


164 (A4) 


168 (A8) 


170 (AA) 


171 (AB) 


172 (AC) 
176 (BO) 
178 (B2) 


179 (B3) 


180 (B4) 


4 


Pe Pf 


JCBDCBA 


JCBDMBNO 


JCBDCBNO 


JCBINDA 


JCBDSOLS 
JCBDSORI 


JCBDSOHD 
JCBDSOHI 
JCBDSOH1 
JCBDSOHS 


JCBDSOUP 


JCBHSADD 


JCBBOFF 


JCBINDB 


JCBINDC 


JCBBLDEL 


JCBHDULD 
JCBCONST 


JCBPADKY 
JCBDUPS 


JCBHSWLR 


JCBINDG 


JCBPREM 


JCBDATX 


JCBXP 


JCBVL 


JCBRETD 
JCBCOMMD 


80 
Ku 


20 
10 
04 
02 


01 


80 


40 
20 


10 
08 
01 


80 


40 
10 


04 
02 


Address of the ACB extension 
for this data set (KSDS ACB 
extension if HISAM) 


DMB number for this DSG 


ACB number of ACB in DMB 
(KSDS ACB number if HISAM) 


JCB Indicators 

This last DSG in JCB 

Data set group is root in 
index 

Data set group is HDAM 
Data set group is HIDAM 
Data set group is HISAM or 
simple HISAM 

Data set group is HSAM or 
Simple HSAM 

Data set group is SHSAM or 
SHISAM 


HSAM I/O area after open 
HSAM block size 
(Not used in DL/I DOS/VS) 


JCB indicators 

This DSG belongs to 
delete/replace 

HD unload is running 

Index data set contains 
constant 

Search argument not equal to 
key length 

Non-unique secondary index 
keys 

HSAM wrong length record 


JCB indicators - retrieve 
variable length flags 
Segment prefix moved to work 
area 

Segment completely expanded 
Force complete segment 
expansion 

The variable length routine 
has been entered for segment 
Data return call 

Path return call 
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Offset 


Field/Flag Flag , 


Dec (Hex) Length Name Code(Hex) —- Meaning 

181(B5) 3 **Reserved** 

184 (B8) 4 JCBNOSAM Retrieve HSAM‘'s ID 

188 (BC) 4 JCBLROOT RBA of current root 
JCBPRLEN Length of JCB prefix 
JCBDSGLN Length of each DSG section of 

JCB 
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LEV - LEVEL TABLE ENTRY 


DSECT Name: 


The level table entry is described as part of the general structure and 


description of the program specification block (PSB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 


Name 


+#LEVCDB 
#LEVCOMMC 
*LEVCOMMD 
*#LEVCOMMF 
#L EVCOMML 
+L EVCOMMN 
#1, EVCOMMC 
*#L.EVCOMMT 
+L, EVCOMMX 
*#LEVCONT 
+#LEVDATA 
*LEVDATAL 
*#LEVDLET 
+L, EVEMPTY 
LEVEND 
*L, EVEOD 
LEVF1 
LEVF2 
LEVF3 
LEVF4 
LEVF5 
+LEVHELD 
+LEVHIER 
*LEVISRT 
*#LEVKEY1 
*LEVLAST 
LEVLEN 
LEVLEV 
+#LEVLSW 
#1, EVMEMAC 
*#LEVMEMAS 
LEVMEMBR 
#L EVMEMEQ 
#L EVMEMGT 
+L EVMEMKY 
+L EVMEMLT 
#1, EVMEMNE 
#L EVMEMPL 
*#LEVNDB 
*LEVNFPOS 
LEVNUPC 
LEVNUSDB 
LEVPC 
*LEVPFRST 
+*LEVPLAST 
+L EVPSUDO 
LEVSDB 


Offset 


Dec (Hex) 


13(0D) 
18 (12) 
19(13) 
19 (13) 
19 (13) 
19(13) 
19 (13) 
18 (12) 
18 (12) 
13(0D) 
12(0C) 
17(11) 
12(0C) 
12(0C) 
36(24) 
13(0D) 
12(0Cc) 
13 (0D) 
17(11) 
18 (12) 
19 (13) 
12(0C) 
12(0C) 
17(11) 
17(11) 
12(0C) 
36 (24) 
0(00) 

13(0D) 
20(14) 
20(14) 
20(14) 
20(14) 
20(14) 
20(14) 
20(14) 
20 (14) 
20(14) 
13(0D) 
13(0D) 
16 (10) 
28(1C) 
1(01) 

12(0C) 
12(0C) 
17(11) 
8 (08) 


Flag 
Code (Hex) 


80 
40 
04 
20 
10 
02 
01 
80 
20 
08 
08 
04 
80 
40 


20 


20 
10 
80 
02 
O01 


02 
08 
02 


80 
20 
04 
40 
10 
O01 
01 
40 


02 
04 
08 
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9°55 


Field/Flag 
Name 


LEVSEGOF 
LEVSSA 
*LEVSTOP 
LEVTTR 
LEVUSEOF 


Offset 
Dec (Hex) 


2002) 
32 (20) 
13 (0D) 
4(04) 
14 (0E) 


Flag 
Code (Hex) 


04 


5-56 Licensed Material ~- Property of IBM 


RECORD LAYOUT - LEV 


Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 1 LEVLEV Level number 

1(01) 1 LEVPC Current segment physical code 


Note: This portion of the level table, once set by retrieve/insert, is 
never cleared to zeros; it is only changed as needed. 


2(02) 2 LEVSEGOF Segment's physical code 
offset from start of record 
(relative offset to segment 
from start of buffer) 


4(04) 4 LEVTTR Relative byte address 
8(08) 4 LEVSDB SDB entry address for 


current segment physical code 
in this entry 


12 (0C) 1 LEVF1 Flags 

LEVDLET 80 Segment at this level newly 
deleted 

LEVEMPTY 40 This level table entry empty 

LEVHELD 20 Segment at this level in hold 
status 

LEVHIER 10 Segment at this level in 
hierarchic path (HISAM only) 

LEVDATA 08 Segment at this level moved 
to user 

LEVPLAST 04 Segment is last of type for 
parent 

LEVPFRST 02 Segment is first of type for 
parent 

LEVLAST 01 This is the last level table 
for PCB 

13 (0D) 1 LEVF2 Flags 

LEVCDB 80 Verify enques required in 
data base of current segment 

LEVNF POS 40 Level has not found position 
for higher level 

LEVEOD 20 EOD flag 

LEVCONT 08 The SSA at this level allows 


retrieve to obtain the next 
sequential segment 


LEVSTOP 04 Used to determine the setting 
Of LEVCONT by retrieve 

LEVLSW 02 Used by retrieve 

LEVNDB 01 Verify enques required in 


destination parents data base 


14 (OE) 2 LEVUSEOF Offset of segment in user I/0 
area (PSTUSER) 


Note: Fields LEVNUPC through LEVSSA describe the SSA set by the call 
analyzer for this entry. 


16 (10) 1 LEVNUPC Physical code of requested 
segment 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
17 (11) 1 LEVF3 Flags 
LEVISRT 80 Inserting at this level (set 
by retrieve) 
LEVPSUDO 08 This is a pseudo SSA filling 
gap 
LEVDATA1 04 SSA qualified on data field 
LEVKEY1 02 SSA qualified on key field 
18 (12) 1 LEVF4 Flags 
LEVCOMMT 80 T command code - retrieve by 
direct address 
LEVCOMMC 40 C command code - qualifier is 
concatenated key 
LEVCOMMX 20 X command code - index 
maintenance internal call 
19 (13) 1 LEVFS5 Flags 
7 LEVCOMMF 20 F command code - get first of 
| segment type 
LEVCOMML 10 L command code - get last of 
segment type 
LEVCOMMD 04 D command code - transfer 
data this level 
LEVCOMMN 02 N command code ~ do not 
replace this level 
LEVCOMMQ 01 Q command code - enqueue 
segment at this level read 
only 
20 (14) 1 LEVMEMBR Switch for each member 
LEVMEMEQ 80 Operator has = sign 
LEVMEMLT 40 Operator has < sign 
LEVMEMGT 20 Operator has > sign 
LEVMEMNE 10 Operator is not equal 
(LEVMEMGT + LEVMEMLT) 
LEVMEMAC 08 This member in use - 
, (unqualified in only bit) 
LEVMEMKY 04 Qualification is on key field 
LEVMEMAS 02 See meaning for xX‘01'‘ 
LEVMEMPL 01 LEVMEMAS + LEVMEMPL = right 
, parenthesis present (always 
on for DL/I DOS/VS) 
21 (15) 7 **Reserved** 
28 (1C) 4 LEVNUSDB SSAs SDB address 
32 (20) 4 LEVSSA SSAs left parenthesis © 
7 position address 
36 (24) LEVEND End of level table entry 
36 (24) LEVLEN Length of level table entry 
3 (LEVEND minus LEVLEV) 
& 
(2 
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MPCPT ~- MPC PARTITION TABLE 


The Master Partition Controller (MPC) partition table is used to pass 
control information when processing batch partition application programs 
under multiple partition support (MPS). The MPC partition table resides 
in the transaction work area. There is one entry for every partition 
sysgened. 


Length 
Field Name (bytes) Description 
MPCPARTB 200 Contains one 28 byte entry (see MPC 
Partition Table entry) for each partition 
defined during system generation. The last 
entry is delimited by a full-word of X‘'FF'. 
MPCECBLT 4 (per This is the CICS WAITM ECB list. 
entry) It contains one entry for each: 


e DLZXCB00 (Stop Transaction XECB) - used 
to stop MPS | 

e DLZXCBO01 (Stop Partition XECB) - posted 
by BPC when it stops 

e DLZXCBnO (Start partition XECB) - 
defined by MPS. Used by batch 
initialization to notify MPC to start the 
BPC 7 

e DLZXCBn3 .(ABEND XECB) - Used for ABEND 
handling 


Note: n is the partition indicator. It can 
be 1 through 7. 


The last entry is delimited by a fullword of 
X" FF. 
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MPC PARTITION TABLE ENTRY 


DSECT Name: MPCPT 


There is one MPC partition table entry for every partition defined 


during system generation. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name 


*MPCADEF 
MPCAXECB 
*MPCCNBPC 
MPCDELIM 
*MPCERR 
MPCFLAG 
MPCFLAG1 
*MPCPACT 
MPCPID 
*MPCPSTP | 
MPCPTLN 
MPCRC1 
MPCRC2 
*MPCREBPC 
*MPCSDEF 
MPCSXECB 
MPCTCA 
*MPCTSTP 
*MPCXECB 


Offset 


Dec (Hex) 


0(00) 
12(0C) 
20(14) 
0(00) 
0(00) 
0(00) 
20(14) 
0(00) 
3(03) 
0(00) 
28(1C) 
1(01) 
2(02) 
0(00) 
0(00) 
8 (08) 
4(Q04) 
0(00) 
0(00) 


Flag | 
Code (Hex) 


02 
80 


4Q 
80 


10 


01 
04 


20 
08 
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RECORD LAYOUT - MPC 


Offset Field/Flag Flag 
Dec (Hex) Length Name _ Code (Hex) Meaning 
0(00) 0 MPCDELIM MPCPT delimiter field 
0(00) 1 MPCFLAG MPC activity flags 
MPCPACT 80 Partition active indicator 
MPCERR 4Q Error condition encountered 
on DL/I scheduling call, or 
BPC attach failure 
MPCTSTP 20 Stop transaction indicator 
MPCPSTP 10 Stop partition indicator 
MPCXECB 08 XECBs deleted for this 
partition 
MPCSDEF 04 Start XECB defined 
MPCADEF 02 ABEND XECB defined 
MPCREBPC 01 Reschedule BPC 
1(01) 1 MPCRC1 Error return code from 
TCAFCTR 
2(02) 1 MPCRC2 Error return code from 
TCADLTR 
3(03) 1 MPCPID Partition identifier (F1, 
E24 «éi) 
G(O4) 4 MPCTCA Address of TCA 
8(08) 4 MPCSXECB Address of stop partition 
XECB €DLZXCBO1) 
12 (0C) 4 MPCAXECB Address of partition ABEND 
XECB (DLZXCBn3) 
16 (10) 4 Unnamed **Reserved** 
20 (14) 1 MPCFLAG1 MPC activity flags 
MPCCNBPC 80 Cancel BPC at stop 7 
transaction when MPS batch 
partition is not active. 
21 (15) 3 Unnamed **Reserved** 
24 (18) 4 Unnamed **Reserved** 
28 (1C) MPCPTLN Length of partition table 


entry 
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PCB = PROGRAM COMMUNICATION BLOCK 





DSECT Name: DEPCB 


The data management PCB (program communication block) is described as 
part of the general structure and Seser Peron of the program 
specification block (PSB), 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 


Name Dec (Hex) Code (Hex) | 
DBPCBDBD 0(00) 
DBPCBJCB 16(10) 
DBPCBKFD 36 (24) 
DBPCBLEV 8(08) 
DBPCBLKY 28 (1C) 
DBPCBMKL 28 (1C) 
DBPCBNSS 32(20) 
DBPCEPRO 12(0C) 
DBPCBSFD . 20(14) 
DBPCBSTC 19 (0A) 


*DBPCBTKW 16(10) 80 


RECORD LAYOUT = PCB 


Offset | | Field/Flag Flag 


Dec (Hex) Length Name Code(Hex) _ Meaning 

0(00) 8 DBPCBDBD DBD Name 

8(08) Bi DBPCBLEV Level feedback 

10 (0A) 2 DBPCBSTC | Status codes 

12 (0C) 4 DBPCBPRO DL/I processing options 

16 (10) 4 DBPCBJCB JCB address 

DBPCBTKW 80 Another task waiting for 
| resource owned by this task 

20 (14) 8 DBPCBSFD Segment name feedback 

28 (1C) 4 DBPCBLKY Maximum length of key 
feedback area 

28 (1c) 4 DBPCBMKL Current length of key 

: feedback area 

32 (20) 4 DBPCBNSS Number of sensitive segments 
in the PCB 

36 (24) Var DBPCBKFD Key feedback area A 
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PDCA - PROBLEM DETERMINATICN CONTROL AREA 
DSECT Name: PLCA 
The PDCA (Problem Determination Control Area) is used to hold 


miscellaneous data used in problem determination. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
PDCACPAC 0(00) 

PDCAFERT 8(08) 

PDCAFLAG 12(0C) 

PDCAMSG 13(0D) 

*PDCASTOP 12(0C) 

PDCAXPRM 4(O4) 


RECORD LAYOUT ~ PDCA 


Offset Field/Flag Flag 

Dec (Hex) Length Name __ Code (Hex) Meaning 

0(00) u PDCACPAC Variable length segment 
compression routine list 
pointer 

4(04) 4 PDCAXPRM Secondary index suppression 
routine list pointer 

8(08) 4 PDCAFERT Field exit routine list 

12 (0c) 1 PDCAFLAG PDCA flag byte 

PDCASTOP 80 Stop saving messages 
13 (OD) 3 PDCAMSG ABEND code 
16 (OF) 16 **Reserved** 
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PDIR ~ PSB DIRECTORY 


DSECT Name: DLZPDIR 


The PSB directory contains an entry for every PSB (program specification 
klock) that may run under DL/I control. The PSB directory is part of 
the DL/I nucleus and is created during DL/I system definition for online 
processing. The start address of the PSB directory (SCDDLIPS) and the 
entry length (SCDDLIPL)are contained in the SCD (system contents 
directory). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


16 (10) 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
PDIRADDR 8(08) 

*PDIRBAD 19 (13) 01 
*PDIRBPLI 19 ¢€13) 08 
PDIRCODE 18 (12) 

*PDIRDELT 18 (12) 02 
*PDIRDUPL 18 (12) 10 
*PDIREM 19 (13) 20 
PDIREMOT 24 (18) 

*PDIREXC 18 (12) 40 
PDIRLEN 28 (1C) 

*PDIRNOSC 19 (13) 80 
*PDIRNTNT 19 (13) 10 
PDIROPTC 19 (13) 

*PDIRPLI 18 (12) 20 
PDIRPSBL 12(0C) 

*PDIRSCHD 19 (13) 40 
PDIRSILA 20 (14) 
PDIRSYM (0 (00) 

*PDIRTFAL 18 (12) 01 
*PDIRUPD 18(12) 80 
*PDIRZWA 
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Misi 


RECORD LAYOUT - PDIR 


offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 0 PDIR Label used to establish 
address 
0(00) 8 PDIRSYM PSB execution name - 
converted from name supplied 
during PSBGEN 
8(08) 4 PDIRADDR PSB address (contains 0 for 
remote PSB) 
12 (0C) 4 PDIRPSBL Storage required for PSB 
16 (10) 2 PDIRZWA Storage required for index 
workarea 
18 (12) 1 PDIRCODE PSB code byte 
PDIRUPD 80 This PSB is update sensitive 
PDIREXC 40 This PSB requires DMB 
exclusive control 
PDIRPLI 20 This PSB for PL/I 
PDIRDUPL 10 This PSB is duplicate 
PDIRDELT 02 This PSB is delete sensitive 
PDIRTFAL 01 PSDB-SDB chaining error 
detected during online task 
termination 
19 (13) 1 PDIROPTC PSB scheduling codes 
PDIRNOSC 80 Do not schedule this PSB 
PDIRSCHD 4d This PSB is scheduled 
PDIRREM 20 This PSB is remote 
PDIRNTNT 10 This PSB is waiting for 
intent 
PDIRBPLI 08 DFHTBP uSing PL/I PSB 
PDIRBAD 01 PSB initialization failed 
20 (14) 4 PDIRSILA Address of PSB segment intent 
list 
24 (18) 4 PDIREMOT Address of RPDIR entry for 
this remote PSB 
28 (1C) PDIRLEN PSB directory entry length 
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PPST ~- PST PREFIX 


DSECT Name: DLZPPST 


The PST prefix contains data required for user task scheduling ina 
CICS/VS online environment. It also contains a section used by buffer 
handler for enqueue/dequeuve information and another section used for 
online segment intent scheduling. The PST prefix is logically part of 


the PST (partition specification table). However, in order to operate 
more efficiently in a virtual storage environment, all PST prefixes (one 
for batch) are organized so that they are physically located in one 


contiguous area. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 

Name Dec (Hex) Code (Hex) 

*PPSTA 4(04) 01 

*PPSTACT 4 (04) 04 

*PPSTBF 4¢€04) 10 

PPSTCA 5 (05) 

PPSTCB 1(01) 

PPSTCF 0(00) 

PPSTCHAT 28(1C) 

PPSTCW 3(03) 
PPSTECB 2(02) 

PPSTEND 32 (20) 

PPSTEXCI 12(0C) 

PPSTID 8 (08) 

PPSTIND 4(04) 

*PPSTIO 4(04) 80 

PPSTLEN 32(20) (See segment intent scheduling section) 
PPSTMATR 24(18) 

*PPSTMPS 4(O4) 08 

*PPSTMSDL 4(O4) 02 

PPSTPECI 16(10) 

PPSTPDIR 12 (0c) (See segment intent scheduling section) 
*PPSTSI 4(04) 40 

PPSTSUPO 20(14) 

*PPSTTC 4#(€Q4) 20 

PPSTIC 9(09) 

PPSTTSKP 16(10) (See segment intent scheduling secion) 


5-66 Licensed Material ~ Property of IBM 


RECORD LAYOUT ~- PPST 


Offset | Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 1 PPSTCF Prefix chain forward pointer 
1(01) 1 PPSTCB Prefix chain backward pointer 
2(02) 1 PPSTECB POST/WAIT byte of PST ECB 
3(03) 1 PPSTCW PST prefix program isolation 
wait chain 
G(04) 1 PPSTIND Task schedule and dispatch 
indicators 
PPSTIO 80 Waiting for I/0 
PPSTSI 4Q Cannot schedule due to 
segment intent conflict 
PPSTTC 20 Cannot schedule - task count 
limit exceeded 
PPSTBF 10 Task enqueued by buffer 
handler 
PPSTMPS 08 Indicates MPS task 
PPSTACT O4 This is current task 
PPSTMSDL 02 Scheduled by BPC 
PPSTA 01 Task is scheduled 
5(€05) 3 PPSTCA Address of PST 
8(08) 1 PPSTID Task ID 
9(09) 3 PPSTTCA Task TCA address 


***This section used by buffer handler for 


12(0C) 4 


16 (10) u 
20 (14) 4 
24 (18) 4 


PPSTEXCI 


PPSTPECI 


PPSTSUPO 


PPSTMATR 


enqueue/dequeue *** 


Enqueue/dequeue pointers for 
existing control interval: 


Byte 0-1 = buffer number 

Byte 2-3 = PPST number of 
task next in 
chain 


Enqueue/dequeue pointers for 

pending control interval: 

Byte 0-1 buffer number 

Byte 2-3 PPST number of 
task next in 
chain 


Enqueue/dequeue pointer for 
Subpool space: 


Byte 0-1 = subpool number 

Byte 2-3 = PPST number of 
next task in 
chain 


Enqueue/dequeuve pointers for 
interlock detection matrix 


space: 
Byte 0-1 = x'00* 
Byte 2-3 = PPST number of 


next task in 
chain 
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Of fset 


Field/Flag Flag 


Dec(Hex) Length Name Code (Hex) Meaning 
28 (1C) 4 PPSTCHAI Enqueue/dequeue pending 


32 (20) 


a4. PPSTEND 


control interval chain field 


pointers: 
Byte 0-1 = buffer number 
Byte 2~3 = PPST number of 


next task in 
chain 


End of prefix DSECT 


***This section used to online segment intent scheduling** 


12 (0C) 
16 (10) 
32 (20) 
32 (20) 
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4 PPSTPDIR 
1 PPSTTSKP 
1 

PPSTLEN 
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Task PDIR entry address 
Task dispatching priority 
Reset to end of prefix DSECT 


Length of PST prefix 





PSB ~ PSB Prefix 


DSECT Name: 


The PSB prefix is described as part of the general structure and 
description of the program specification block (PSB) 


ALPHABETIC LIST OF FIELDLFLAG NAMES 





Field/Flag offset Flag 
Name Dec (Hex) Code (Hex) 
PSBCCDE 29(1D) 

PSBDBOFF 34(22) 

*PSBFLS 29 (1D) 01 
PSBFRTA 0¢(00) 

PSBIOASZ 1€01) 

PSBIOAWK 18 (24) 

PSBINDEX 28 (1C) 

PSBLIST 36(24) 

PSENDXWK 20 (14) 

*PSBPLI 29 (1D) 10 
PSBPST 12(0C) 

PSBSEGWK 8(08) 

PSBSIZE 30(1E) 

PSBTPOFF 32(20) 

PSBVMID 0(00) 

*PSBV11 0(00) 01 
PSEBXIOWK 4(Q4) 

PSBXPCB 16(10) 
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5~69 


RECORD LAYOUT - PSB 


Offset Field/Flag Flag 

Dec(Hex) Length Name _ code (Hex) Meaning 

0(00) 1 PSBVMID DOS DL/I version ID 

~ PSBV11 01 Version 1.1 or later 

0(00) 4 PSBFRTA Field exit routine address. 
If no entries in table, low 
order 3 bytes = 0 (used only 
during initialization) 

1(01) 3 PSBIOASZ Size of the PSB I/O work area 
whose address is in PSBIOAWK. 
This field contains a 16-bit 
logical number. 

4(04) 4 PSBXIOWK Address of index I/O work 
area or user's version of a 
segment built by retrieve 

8(08) 4 PSBSEGWK Address of variable length 
segment work area 

12 (OC) 4 PSBPST PST address if PSB is 
scheduled or active 

16 (10) 4 PSBXPCB Address of index PCB 

20 (14) 4 PSBNDXWK Address of index maintenance 
work area or pointer to the 
field exit parameter list 

24 (18) Q PSBIOAWK Address of I/O work area 

28 (1C) 1 PSBINDEX (Not used in DL/I DOS/VS) 

29 (1D) 1 PSBCODE PSB flags 

PSBPLI 10 PL/I is source language 
PSBFLS 01 PSB contains field sensitive 
segment 

30 (1E) 2 PSBSIZE PSB size 

32 (20) 2 PSBTPOFF (Not used in DL/I DOS/VS) 

34 (22) 2 PSBDBOFF Offset from the PSBLIST to 
first DB PCB 

36 (24) Var PSBLIST Beginning Of PCB list. Note: 
this field is a list of 
fullword pointers containing 
PCB addresses. Last PCB 
address word has byte 0, bit 
0 =1. List may contain a 
maximum Of 64 addresses. For 
PL/I programs these pointers 
are to the dope Vector Tables 
in which the first word is a 
pointer to the associated 
PCB. 
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PSDB - PHYSICAL SEGMENT DESCRIPTION BLOCK 


DSECT Name: 


The PSDB is described as part of the general structure and description 


of the data management block (DMB) 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 


Name 


DMBCKL 
*#DMBCPT 
*DMBCPTIT 
#DMBCPTKY 
#DMCCTR 
DMBDCB 
DMBDL 
DMBDLT 
+#DMBDRL 
#DMBDRP 
*#DMBDRV 
*#DMBEX 
DMBFDBA 
DMBFLAG 
DMBFSDB 
*DMBIFST 
+#DMBIHERE 
*#DMBILST 
*DMBIRL 
*#DMBIRP 
+#DMBIRV 
DMBISRT 
*DMBLCEX 
DMBLEV 
+DMBLP 
*#DMBLPEX 
DMBLST 
*#DMBLTBK 
+#DMBLTFD 
#DMBNXEX 
*DMBPI 
DMBPLEM 
+#DMBPP 
DMBPPBK 
DMBPPFD 
DMBPRSZ 
DMBPSC 
DMBPSDBN 
+#DMBPTBK 
*#DMBPTFD 
DMBPTR 
*DMBRRL 
*#DMBRRP 
*#DMBRRV 
DMBSC 
DMBSCTAB 
DMBSGMN 


Offset 
Dec (Hex) 


14 (0E) 
24(18) 
24 (18) 
24(18) 
7(07) 
6(06) 
10 (0A) 
13(0D) 
13 (0D) 
13(0D) 
13(0D) 
16 (10) 
16(10) 
32(20) 
20(14) 
12(0C) 
12(0C) 
12(0C) 
12(0C) 
12(0C) 
12(0C) 
12(0C) 
32(20) 
2(02) 
7007) 
32 (20) 
32(20) 
7€07) 
7007) 
3220) 
24 (18) 
36 (24) 
7007) 
5(05) 
4(04) 
8 (08) 
1(01) 
36 (24) 
7(07) 
7007) 
7007) 
13 (0D) 
13 (0D) 
13 (0D) 
0(00) 
25(19) 
28 (1C) 


Flag 
Code (Hex) 


04 
01 
02 
80 


03 
02 
01 
80 


10 
30 
20 
03 
02 
O01 


20 


02 
40 


O04 
08 
10 
80 


10 


20 
40 


oc 
08 
O04 
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oan pS 


Field/Flag 
Name 


DMBSGMX 
+DMBUP 
DMBUSE 
DMBVLDFG 
*DMBVLS 
*DMBXDES 
DMBXNULL 
*DMBXPROT 


offset 
Dec (Hex) 


30(1E) 
16 (10) 
16 (10) 
24 (18) 
24 (18) 
32 (20) 
3 (03) 

12(0C) 


Flag 
Code (Hex) 


40 
O4 


04 


80 
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RECORD LAYOUT - PSDB 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 1 DMBSC Segment code 
01 Root segment code 
1(01) 1 DMBPSC Parent's segment code 
2(02) 1 DMBLEV Segment level 
3¢€03) 1 DMBXNULL (Not used in DL/I DOS/VS) 
4(€04) 1 DMBPPFD Pointer number in parent to 
first occurrence of segment 
for parent 
5(05) 1 DMBPPBK Pointer number in parent to 
last occurrence of segment 
for parent 
6(06) 1 DMBDCB ACB number 
7007) 1 DMBPTR Prefix flags 
DMBCTR 80 Counter present 
DMBPTFD 40 Segment has physical twin 
forward pointer 
DMBPTBK 20 Segment has physical twin 
backward pointer 
DMBPP 10 Segment has physical parent 
pointer 
DMBLTFD 08 Segment has logical twin 
forward pointer 
DMBLTBK 04 Segment has logical twin 
backward pointer 
DMBLP 02 Segment has logical parent 
pointer 
8(08) 2 DMBPRSZ Prefix length of segment 
19 (0A) 2 DMBDL Data length of segment 
22 (0C) 4 DMBISRT Insert rules — 
DMBXPROT 80 System data in index is 
protected 
DMBIHERE 30 If no key field, insert at 
current position 
DMBILST 20 If no key field, insert after 
| existing segment | 
DMBIFST 10 If no key field, insert 
before existing segment 
DMBIRL 03 Insert rule is logical 
DMBIRP 02 Insert rule is physical 
DMBIRV Ot Insert rule is virtual 
13 (0D) 1 DMBDLT Delete/replace rules 
DMBRRL 0c Replace rule is logical 
DMBRRP 08 Replace rule is physical 
DMBRRV 04 Replace rule is virtual 
DMBDRL 03 Delete rule is logical 
DMBDRP 02 Delete rule is physical 
DMBDRV 01 belete rule is virtual 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
14 (OE) 2 DMBCKL Concatenated key length of 
parent of this segment 
16 (10) 1 DMBUSE Code Byte 
DMBEX 80 This PSDB in use exclusively 
DMBUP 40 This PSDB in use for update. 
Bits 2-7 contain a count of 
read-only users 
16 (10) 4 DMBFDBA Address of FDBs for this 
segment 
20 (14) 4 DMBFSDB Address of first SDB for 
this segment 
24 (18) 1 DMBVLDFG Variable length data flag 
DMBPI 80 Program isolation should be 
done for this segment 
DMBCPT 08 Segment has compression 
routine 
DMBVLS O44 Segment is variable length 
DMBCPTKY 02 Compression routine has key 
expand routine 
DMBCPTIT 01 Compression routine has 
intialization processing 
25 (19) 3 DMBSCTAB Address of segment compaction 
table 
28 (1C) 2 DMBSGMN If variable length segment; 
minimum length of segment 
30(1E) 2 DMBSGMX If variable length segment; 
maximum length of segment 
32 (20) 1 DMBFLAG Secondary list flag 
DMBLPEX 40 A logical parent exists 
| (segment is a logical child) 
DMBLCEX 20 One or more logical children 
exists (segment is a logical 
parent) | 
DMBNXEX 10 One or more indexes exist 
DMBXDEX O04 An indexed segment exists 
32 (20) & DMBLST Address of secondary list for 
this segment 
36 (24) DMBPSDBN End of one PSDB entry 
36 (24) DMBPLEM Length of each PSDB entry 
(DMBPSDBN minus DMBSC) 
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as 


PSIL - PSB INTENT LIST 
DSECT Names DLZPSIL 
The PSB intent list is pointed to from the PSB directory and is a list 


of all the DMEs which may be used by that PSB (program). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
*PSILBFRI 8 (08) 20 
*PSILDBEX 8 (08) 80 
*PSILDBUP 8(08) : 4Q 
PSILDIRA 0(00) 

PSILDIRN 4(O4) 

PSILDMBN 0(00) 

PSILLNGH 9(09) 

PSILNTNT : 8 (08) 

PSILSEGD ~10(0A) 
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RECORD LAYOUT - PSIL 


Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 


0(00) 


0(00) 


4(04) 


6(06) 
8(08) 


9(09) 
10 (OA) 


BIT 


SEGMENT 


5-76 


8 PSILDMBN 
4 PSILDIRA 
2 PSILDIRN 


1 PSILNTNT 


PSILDBEX 80 


PSILDBUP 40 


PSILBFRI 20 


1 PSILLNGH 


Var PSILSEGD 


DMB name for this list entry 
- overlaid during 
initialization 


Address Of DMB directory 
entry - resolved during 
initialization 


DMB number of this DMB 
**Reserved*t* 


Segment intent descriptor 
byte | 

PSB contains a PCB which 
requires exclusive control 
for this DMB 

PSB contains a PCB which is 
update sensitive 

Buffer pool space required 
for this KSDS 


Length of this entry in list 


Segment intent bits. Two 
bits are used for each 
segment in the DMB and 
represent the PSB's 
sensitivity to each PSDB. 


Their meanings are: 

Bit Meaning 

PSB not sensitive to segment 
PSB read only sensitive 

PSB update sensitive 

PSB requests exclusive con- 
trol (HISAM root insert) 


The bits are allocated to 
segments in the following 
manners: | 
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The second part of the 
segment intent bits is a 
mask. It is constructed from 
the segment intent bits of 
the first part. Part 2 has | ; 
the same length as part 1. , 


PST ~ PARTITION SPECIFICATION TABLE 


DSECT Name: 


One partition specification table (PST) exists for each task in an 
online or batch processing partition. All DL/I resources allocated to 
the task can be located through the PST. The PST also contains pointers 
to the task I/O area and any segments currently associated with the 


task. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 


Name 


*DBLCMC 

*DBLFSE1 

*DBLFSE2 

*DBLLASTC 
*DBLLGDLT 
*DBLNDXC 

*DBLNEWBL 
*DBLNTCR 

*DBLOOPS 

*DBLPHYD 

*DBLPHYI 

*DBLPHYR 
*DBLPHYRO 
PSTABIND 
PSTACBNM 
PSTACCT 
*PSTBATCH 
*PSTBDCAL 
*PSTPFALT 
*PSTBFMPT 
PSTBFUSE 
*PSTBKLCT 
PSTBLKNM 
*PSTBIMPF 
*PSTRTMPF 
PSTBUFFA 
*PSTBYALT 
*PSTBYEND 
*PSTBYLCT 
PSTBYTNM 
*PSTCALI 

*PSTCANLI 
*PSTCHKP 

*P STCLOK 

PSTCLRWT 
PSTCNVB 

PSTCODE1 
PSTCPLN 

PSTCTGFL 
PSTCTIGL1 
PSTCTGL2 
PSTCIGNM 
PSTCTGPL 
PSTCTIGRT 


Offset 
Dec (Hex) 


436 (1B4) 
436 (1B4) 
436(1B4) 
436 (1B4) 
436(1B4) 
4&36(1B4) 
436 (1B4) 
436(1B4) 
436(1B4) 
436 (1B4) 
436(1B4) 
436 (1B4) 
436(1B4) 
72 (048) 

146 (092) 
92(05C) 

464(1D0) 
133(085) 
132(084) 
132(084) 
160 (0A0) 
132(084) 
140 (08C) 
132 (084) 
133(085) 
156 (09C) 
132(084) 
133 (085) 
132(084) 
148 (094) 
465¢€1D1) 
483 (1E3) 
465(1D1) 
133(085) 
254 (0FE) 
475 (1DB) 
68 (044) 

180 (0B4) 
220 (0DC) 
244 (0F4) 
247 (OF 7) 
180 (0B4) 
180 (0B4) 
248 (OF 8) 


Flag 
Code (Hex) 


00 
00 
04 
08 
60 
80 
01 
70 
OA 
20 
40 
10 
02 


80 
10 
05 
O04 


01 


03 
03 


06 
28 
02 


02 
40 
O04 
00 
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Field/Flag 


Name 


PSTCTGWK 
PSTCURWA 
PSTCWKLN 
PSTLATA 
PSTDBPCD 
PSTDDLET 
PSTDGHN 
PSTDGHNP 
PSTDGHU 
PSTDGN 
PSTDGNP 
PSTDGU 
PSTDISRT 
PSTDLIWA 
PSTDLIWB 
PSTDLIWC 
PSTDLIWD 
PSTDLIWE 
PSTDLIWF 
PSTDLIWO 
PSTDLIW1 
PSTDLIW2 
PSTDLIW3 
PSTDLIW4 
PSTDLIWS 
PSTDLIW6 
PSTDLIW7 
PSTDLIW8 
PSTDLIW9 
PSTCLROM 
PSTDLTWA 
PSTDMBNM 
PSTDREPL 
PSTLSGA 
*P STDUMPI 
#PSTENDDA 
+*P STEOD 
*PSTERASE 
PSTERCD1 
PSTERCD2 
PSTERCOD 
PSTERDT1 
PSTERDT2 
PSTERIND 
#P STERMSP 
*#PSTEXPAD 
*P STFBSPC 
PSTFNCTN 
*PSTFRBLK 
*PSTFRSPC 
*P STGBSPC 
*#PSTGETNX 
*PSTGTDS 
*PSTGTRAP 
#PSTGTSPC 
PSTGVPL 
PSTGVWKL 
*PSTHISMR 
#PSTINLD 
*PSTINTNT 
#PSTIOERR 
PSTIQPRM 


Offset 


, Dec (Hex) 


244 (OF4) 
340(154) 
248 (OF 8) 
152(098) 
128 (080) 


120(078) 
(108(06C) — 


112(070) 
104 (068) 
96 (060) 
100 (064) 
92(05C) 
116(074) 
44(02C) 
48 (030) 
92(034) 
96 (038) 
60 (03C) 
64(040) 
4(004) 

8 (008) 
12(00C) 
16 (010) 
20 (014) 
24 (018) 
28 (01C) 
32 (020) 
36 (024) 
40(028) 
348 (15C) 
344 (158) 
144 (090) 


124 (07C) 


136 (088) 
483 (1E3) 
133(085) 
133(085) 
132(084) 
466 (1D2) 
467(1D3) 
466(1D2) 
468 (1D4) 
475 (1DB) 
483(1E3) 
720048) 

254 (0FE) 
132(084) 
132(084) 
133(085) 
132(084) 
132 (084) 
132(084) 
133(085) 
132(084) 
132(084) 
232 (0E8) 
232 (0E8) 
464(1D0) 
133(085) 
68 (044) 

133(085) 
72(048) 


Flag 3 
Code (Hex) 


80 
24 
2c 
OA 


80 
40 
04 


30 
02 
03 
OB 
04 
04 
01 


10 
34 


— 40 


08 
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Field/Flag 


Name 


*PSTIWAIT 
PSTLIPRM 
*PSTLODU 
*P STLODUH 
PSTLOGQ 
PSTLOGWA 
PSTMI 
PSTMROCO 
*PSTMSPUT 
*P STNOERR 
PSTNORO 
*P STNOSPC 
*PSTNOTFD 
*#P STNPLSP 
PSTNUMRO 
PSTNUMWT 
*PSTNWBLK 
*PSTOCALL 
*PSTOCBAD 
*P STOCCLS 
*PSTOCDCB 
*#P STOCDMB 
*PSTOCDSG 
*PSTOCLD 
*PSTOCOPN 
*PSTOCPCB 
PSTOFFST 
*PSTOLTW 
PSTPCPGM 
PSTPCPSB 
PSTPCT1 
PSTPCT2 
*PSTPGUSR 
*PSTPIPIU 
*PSTPISIU 
*PSTPLI 
PSTPLIPR 
PSTPOSEL 
PSTPREAD 
PSTPREAR 
*PSTPRVWT 
PSTPSB 
*PSTPUTKY 
*#P STQDEQ 
*PSTQENQ 
*P STQLEO 
PSTQLEV 
*PSTOQLEXC 
*PSTOLUPD 
*PSTOQPUR 
*PSTORBDC 
*PSTORDDL 
*PSTORNSE 
*P STQROOP 
*PSTORWR 
*#P STOVER 
PSTRBAL 
*PSTRDERR 
PSTRETRE 
PSTRPSTA 
PSTRRDF 
PSTRRDL 


Offset 
Dec (Hex) 


254 (0FE) 
484(1E4) 
464(1D0) 
464(1D0) 
436 (1B4) 
432(1B0) 
76 (04C) 
177 (0B1) 
132(084) 
176 (0BO) 
564(234) 
133(085) 
133(085) 
133(085) 
252(0FC) 
253 (OFD) 
133 (085) 
132(084) 
132(084) 
132(084) 
132(084) 
132 (084) 
132(084) 
132(084) 
132(084) 
132(084) 
134(086) 
68 (044) 
448(1C0) 
456(1C8) 
464(1D0) 
465(1D1) 
132(084) 
133(085) 
133(085) 
465(1D1) 
956 (22C) 
176 (OBO) 
00(00) 
168 (0A8) 
68 (O44) 
88 (058) 
132(084) 
132(084) 
132(084) 
970 (238) 
970 (238) 
570 (238) 
970 (238) 
132(084) 
133(085) 
133(085) 
133(085) 
133(085) 
133(085) 
132(084) 
202 (0CA) 
133(085) 
220 (0DC) 
978 (240) 
570 (238) 
578 (240) 


Flag 
Code (Hex) 


80 


40 
20 


OE 
40 


OC 
14 
1c 


18 
04 
80 
00 
10 
01 
4O 
20 
08 
02 


04 


07 
80 
40 
01 


08 


OD 
08 
08 
00 


08 
04 
0c 
08 
O4 
10 
02 
01 
04 


08 
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5-79 


Field/Flag 


Name 


PSTRTICDE 
#PSTSABND 
PSTSAVRE 
#PSTSCALL 
PSTSCDAD 
*PSTSCHED 
PSTSDATA 
PSTSEG 
PSTSEGL 
PSTSPL 
*#PSTSTLBG 
#PSTSTLEQ 
PSTSUBNM 
PSTSUIN 
PSTSV1 
PSTSV2 
PSTSV3 
PSTSV4 
PSTSV5 
PSTSV6 
PSTSV7 
PSTSWI 
PSTSWKAR 
PSTSWKL 
*P STTABND 
PSTTSKID 
*PSTUDR 
#PSTULU 
PSTUSER 
+#PSTUSM 
*#P STUST 
PSTVLSR 
PSTVSL 
*#PSTWRITE 
PSTWRKD1 
PSTWRKD2 
PSTWRKD3 
PSTWRKD4 
‘PSTWRKD5 
PSTWRKD6 
PSTWRKD7 
PSTWRET1 
PSTWRKT2 
PSTWRKT3 
PSTWRKT4 
PSTWRET5 
PSTWRK1 
PSTWRK1 
PSTWRK2 
PSTWRK3 
PSTWRK4 
*#PSTWROSI 
#P STXCONM 
*#PSTXMDLT 
*#P STXMISR 
*PSTXMRPL 
*#PSTXMUNL 
*#PSTXPRTM 
PSTXPSV1 
PSTXPSV2 
PSTXPSV3 


Offset 
Dec (Hex) 


133(085) 
720048) 

180 (0B4) 
68 (044) 

68 (044) 

68 (044) 

202 (OCA) 
84 (054) 

80 (050) 

208 (0D0) 
132 (084) 
132(084) 
172 (OAC) 
164 (0A4) 
592(250) 
664(298) 
736(2E0) 
808 (328) 
880 (370) 
952(3B8) 
1024(400) 
174 (OAE) 
180 (0B4) 

202(0CA) 
72 (048) 

256 (100) 

464(1D0) 

464(1D0) 

76(04C) 

464(1D0) 
464(1D0) 
246 (OF 6) 

202 (0CA) 

132(084) 
312(138) 
316 (13C) 
320(140) 
324 (144) 
328 (148) 

332(14C) 
336(150) 
292(124) 
296(128) 
300 (12C) 
304(130) 

308 (134) 
276 (114) 

436(1B4) 
280 (118) 
284(11C) 
288 (120) 
133(085) 
465(1D1) 
132(084) 
132(084) 
132 (084) 
132(084) 
465(1D1) 
260(104) 

264 (108) 
268 (10C) 


Flag 

Code (Hex) 
20 

80 

10 


0c 
09 


10 


04 
02 


01 
08 


08 
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RECORD LAYOUT - PST 


Offset Field/Flagq Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(000) i PSTPREAD Address of this PST prefix 
&( 004) 4 PSTDLIWO Action modules work area HD 
unload (DLZURGUO) return 
address for retrieve 
(008) 4 PSTDLIW1 Action modules work area 
12 (00C) 4 PSTDLIW2 Action modules work area 
16 (010) 4 PSTDLIW3 Action modules work area 
20 (014) 4 PSTDLIW4 Action modules work area 
24 (018) 4 PSTDLIW5 Action modules work area 
28 (01C) 4 PSTDLIW6 Action modules work area 
32 (020) 4 PSTDLIW7 Action modules work area 
36 (024) 4 PSTDLIW8 Action modules work area 
40 (028) 4 PSTDLIW9 Action modules work area 
44 (02C) 4 PSTDLIWA Action modules work area 
48 (030) 4 PSTDLIWB Action modules work area 
52 (034) 4 PSTDLIWC Action modules work area 
56 (038) 4 PSTDLIWD Action modules work area 
60 (03C) 4 PSTDLIWE Action modules work area 
64 (040) 4 PSTDLIWF Action modules work area 
***USER CALL PROCESSING SECTION**#* 
68 (044) 1 PSTCODE1 
PSTSCALL 80 PST for system call . 
PSTINTNT 40 Cannot schedule, intent not 
Satisfied 
PSTSCHED 10 OK to complete scheduling 
PSTPRVWT 08 LOgger private wait indicator 
PSTOLTW 04 Another task waiting for 
resource owned by this task. . 
Note: If PSTINTNT and 
PSTSCHED are both set, DL/I 
backout is in control. 
68 (044) 4 PSTSCDAD Address of SCD 
72 (048) 4 PSTABIND Task/system ABEND indicator 
PSTERMSP 80 PUT error message indicator 
PSTSABND 20 System ABEND indicator bit 
PSTTABND 10 Task ABEND indicator bit 
72 (048) 4 PSTIQPRM Address of caller's parameter 
list 
76 (O4C) 4 PSTMI Return segment indicator 
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Offset FieldyFlag Flag 

Dec (Hex) Length Name __Code (Hex) Meaning 

76 (04C) 4 PSTUSER Address of user's I/O area 
g0(050) 4 PSTSEGL Retrieved segment length 
84 (054) 4 PSTSEG Retrieved segment address 
88 (058) 4 PSTPSB PDIR entry address 


***USER TASK STATISTICS*** 


92 (05C) 

92 (05C) 

96 (060) 

100 (064) 
104 (068) 
108 (06C) 
112 (070) 
116 (074) 
120 (078) 
124 (07C) 


*** ACTION MODULES SECTION*** 


128 (080) 


132 (084) 


4 


4 


4 


4 


4 


1 


PSTACCT 


PSTDGU 


PSTDGN 


PSTDGNP 


PSTDGHU 


PSTDGHN 


PSTDGHNP 


PSTDISRT 
PSTDDLET 


PSTDREPL 


PSTDBPCB 


PSTFNCTN 


Number of GU calls issued 
Number of GN calls issued 
Number of GNP calls issued 
Number of GHU calls issued 
Number of GHN calls issued 
Number of GHNP calls issued 
Number of ISRT calls issued 
Number of DLET calls issued 


Number of REPL calls issued 


Address of current PCB 


Function codes 


***FOUATES FOR BUFFER HANDLER FUNCTION CODES*** 
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PSTBKLCT 
PSTBYLCT 


PSTGBSPC 
PSTFBSPC 


PSTBFMPT 


PSTBFALT 


PSTBYALT 
PSTPGUSR 
PSTWRITE 
PSTSTLEQ 


PSTERASE 


01 
02 


06 
07 
08 
09 


0A 


Locate relative block number 
If HD, locate relative byte 
number. If HISAM or HIDAM 
INDEX, read a record by RBA 
from a KSDS. If HISAM, read 
a record by RBA from an ESDS. 
Get buffer space 

Free buffer space 

Mark buffers enpty 

If HD, mark a buffer 
containing data altered. If 
HISAM or HIDAM INDEX, write a 
record by RBA to a KSDS. If 
HISAM, write a record by RBA 
to an ESDS 

Locate a relative byte number 
and mark buffer altered 
Purge all buffers altered by 
a task 

Write a new record to HISAM 
ESDS 

Read a record by key from a 
KSDS : | 

Erase a record in a KSDS 





Offset 
Dec (Hex) 


** *#EQUATES FOR OPEN/CLOSE FUNCTION CODES**#* 


PSTGETNX 


PSTSTLBG 


PSTPUTKY 


PSTMSPUT 


PSTOCDMB 


PSTOCPCB 


PSTOCALL 
PSTOCCLS 
PSTOCOPN 
PSTOCDCE 


PSTOCLD 
PSTOCDSG 
PSTOCBAD 


Field/Flag Flag 
Length Name 


Code (Hex) 
OB 
Oc 
OD 


OE 


01 


20 
40 
80 


Meanin 


Read the next record in a 
KSDS 

Read the record containing 
the first root in a KSDS 
Insert a record by key into a 
KSDS 

Insert record(s) sequentially 
into a KSDS 


Close DMB. Address of DMB in 
R2 

Close PCB. Address of PCB in 
R2 

Close all DMBs 

Close call. Bit 4 0 

Open call. Bit 4 1 
Open/close the DMB in 
PSTDCBNM. DSG address in 
PSTDSGA 

Open for load 

Open the DSG in PSTDSGA 

Open unsuccessful 


***#EQUATES FOR SPACE MANAGEMENT FUNCTION CODES*** 


PSTGTSPC 


PSTFRSPC 


PSTBTMPF 
PSTGTRAP 


80 
01 


02 


03 
04 


Backout in control 
Get space for segment. R95 


contains pointer to PSDB 


Free space for segment. R5 
contains pointer to PSDB 

Do bit map update 

Get space close to RAP in 
PSTBYTNM 


*#*FOQUATES FOR INDEX MAINTENANCE FUNCTION CODES *** 


PSTXMDLT 


PSTXMRPL 


PSTXMISR 


PSTXMUNL 


AO 
Al 
A2 


A3 


Perform index maintenance for 
segment to be deleted 


perform index maintenance for 


segment to be replaced 
Perform index maintenance for 
segment to be inserted | 
Perform index maintenance for 
segment to be unloaded 


***EQUATES FOR PROGRAM ISOLATION FUNCTION CODES**#* 


133 (085) 


PSTQENQ 


-PSTQVER 


PSTQDEQ 
PSTQPUR 


PSTRTCDE 


Enqueuve (Queueing facility) 
Verify (Queueing facility) 

Dequeve (Queueing facility) 
Purge (Queueing facility) 


Return codes 


***EQUATES FOR BUFFER HANDLER RETURN CODES*** 


PSTCLOK 
PSTGTDS 


PSTIOERR 


00 
04 


08 


No error occurred 

RBN is beyond the end of the 
data set 

I/O error 
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Offset 


Field/Flag Flag 


Dec(Hex) Length Name Code (Hex) Meaning 

PSTRDERR 08 Permanent read error 

PSTNOSPC OC No space for adds 

PSTBDCAL 10 Illegal call 

PSTNOTFD 14 No record found (retrieve by 
key) 

PSTNWBLK 18 New block was created in the 
buffer pool 

PSTNPLSP 1c Insufficient space in the 
buffer pool 

PSTWROSI 20 Size of requested buffer 
exceeds the size of buffers 
in any subpool 

PSTENDDA 24 End of data set. No record 
returned 

PSTBYEND 28 Key or RBA higher than the 
highest key or RBA in the 
data set 

PSTEOD 2c End of data set reached on a 
request issued by open 

PSTINLD 34 Invalid request during data 


¥***SPACE MANAGEMENT 


RETURN CODES*** 


PSTFRBLK 


PSTBTMPF 


30 


03 


set loading 


Block not used due to 
distributed free space 
parameter 

Bit map update required 


*** EQUATES FOR PROGRAM ISOLATION RETURN CODES**#* 


134 (086) 


136 (088) 


140¢€08C) 
144 (090) 
146 (092) 
147 (093) 
148 (094) 


152 (098) 


156 (09C) 
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- FE FF WN 


PSTQRWR 

PSTQROOP 
PSTOQRDDL 
PSTQRBDC 
PSTQRNSE 


PSTPISIU 
PSTPIPIU 


PSTOFFST 


PSTDSGA 


PSTBLKNM 
PSTDMBNM 


PSTACBNM 


PSTBYTNM 


PSTDATA 


PSTBUFFA 


01 
02 
04 
08 
10 


40 
80 


Wait was required 

Other owners present 
Terminated due to deadlock 
Terminated due to bad call 
Terminated. Insufficient 
storage 

Secondary index updated 
Primary index updated 


Offset to PSTDATA from start 
of buffer 


Address of DSG portion of the 
JCB 


Relative block number 

DMB number 

ACB number 

**Reserved** 

RBA or relative record 
number. High order byte 
contains X'80* if request is 
for HISAM ESDS 
Address of requested data 


Address of buffer prefix 


Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
***BUFFER HANDLER AND SPACE MANAGEMENT SECTION*#* 


160(0A0) 


164 (0A4) 


168 (0A8) 


172 (0AC) 


174 (OAE) 


176 (0BO) 


177 (0B1) 


178 (0B2) 
180 (0B4) 


4 


40 


PSTBFUSE 


PSTSUIN 


PSTPREAR 


PSTSUBNM 


PSTSWI 


PSTPOSEL 


PSTNOERR 


PSTMROCO 


PSTSAVRE 


08 
04 
80 
02 


FF 


40 


Address of the buffer prefix 
to be used 


Address of the subpool 
information table to be used 


Beginning address of the 
buffer prefix area for the 
subpool information table 
used 


Subpool number used during 
this call 


Work space 

HD write in progress 

CI in overflow area full 
HISAM ESDS is being processed 
Request made to the buffer 
handler by space management 
Purge buffer request 
completed 


Count for position of use 
chain element 
No error message 


Number of the row/column in 
the interlock detection 
matrix currently used by this 
task 


**Reserved *# 
Work area used by buffer 


handler when processing a 
request 


***#THIS AREA IS USED BY DLZDCIOO FOR SHOWCAT AND GETVCE FOR FBA 


SUPPORT* ** 


180 (0B4) 


202 (0CA) 


246 (OF6) 


208 (ODO) 


232 (0E8) 


40 


PSTSWKAR 


PSTSDATA 
PSTRBAL 
PSTVSL 


PSTSWKL 


PSTVLSR 


PSTSPL 


PSTGVPL 


SHOWCAT work area used by 
Space Management DLZGGSPO and 
Open/Close DLZDLOCO 


Location of needed data 
returned by SHOWCAT 

RBA data length (equated to 
4) 

Volume serial number length 
(equated to 6) 

Length of SHOWCAT work area 
(equated to 64) 


Volume serial number save © 
area 


SHOWCAT parameter list 


GETVCE parameter list 
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Offset Field/Flag Flag 
Dec (Hex) Length Name ___.._ code (Hex) - 





Meaning 





PSTGVWKL - Length of GETVCE work area 
(equated to 52) 


***THE FOLLOWING FIELDS ARE USED BY DL/I OPEN/CLOSE (DLZDLOCO) AND SPACE 
MANAGEMENT (DLZDHDSO) FOR VSAM CATALOG PARAMETER LIST WHEN PROCESSING AN 
OUT-OF-SPACE CONDITION FOR HIDAM DATA BASE*** | 


180(0B4) 40 PSTCTGPL Area used as the VSAM catalog 
7 parameter list (CTGPL) by © 
DLZGGSP0 and DLZDLOCO to do 


locate 
PSTCPLN Length of CTGPL block 
(equated to 40) 
PSTCTGNM Number of CTGFL entries 


(equated to 1) 


220 (O0DC) 32 PSTRETRE Buffer handler subroutine 
| linkage register (R14) save 
area when procssing a request 


***#THE FOLLOWING FIELDS ARE USED BY OPEN/CLOSE (DLZDLOCO) AND SPACE 
MANAGEMENT (DLZDHDSO) FOR VSAM FIELD PARAMETER LIST WHEN PROCESSING AN 
OUT-OF-SPACE CONDITION FOR HIDAM DATA BASE*** 


220 (ODC) 24 PSTCTGFL Area used as the VSAM field 
vee ae parameter list (CTGFL) by 
DLZGGSPO and DLZDLOCO to do 


locate | 
244(0F4) 8 PSTCTGWK VSAM catalog work area 
244(0F4) 3 PSTCTGL1 Catalog work area length 1 
247 (OFT) 1 PSTCTGL2 | Catalog work area length 2 
248 (0F8) 4 PSTCTGRT VSAM catalog return area for 
: ba Ye : HI-RBA 
PSTCWKLN Length of catalog work area 


(equated to 8) 


***BUFFER HANDLER STATISTICS* ¥*¥¥* 


252(0FC).- 1 PSTNUMRO ‘Number of blocks read on this 
: , | call 
253(0FD) 1 PSTNUMWT | Number of writes issued on 
this call 
254(0FE) 1 PSTCLRWT Buffer handler switch 
Gen ses PSTIWAIT -— 80 | IWAIT issued during this call 
255 (OFF) 1 a : | % **Reserved+* 
256(100) 4 | PSTTSKID Hashed task ID. High-order 


byte, binary date. Low-order 
three bytes, assigned in 
ascending sequence 


#**THE FOLLOWING FIELDS ARE USED AS SAVE AREAS SO THAT THE DMB ECB CAN 
BE POSTED IF THE TASK IS CANCELED WHILE WAITING FOR I/O COMPLETION**#* /; 


Moos 


260104) $4 PSTXPSV1 > User VSAM save area address 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

264 (108) 4 PSTXPSV2 EXCPAD return address 

268 (10C) 4 PSTXPSV3 EXCPAD parameter list address 


272(110) 4 


***PST WORK AREAS**#*# 


276 (114) 4 PSTWRK1 
280(118) u PSTWRK2 
284 (11C) 4 PSTWRK3 
288 (120) 4 PSTWRK4 
292(124) 4 PSTWRKT1 
296 (128) i PSTWRKT2 
300(12C) 4 PSTWRKT3 
304 (130) 4 PSTWRKT4 
308 (134) 4 PSTWRKT5 


*#**THE HIGH-ORDER BYTE OF PSTWRKT4 IS USED 
FUNCTION CODES TO INDEX MAINTENANCE*** 


04 
03 
02 
01 

312 (138) 4 PSTWRKD1 

316 (13C) 4 - PSTWRKD2 

320(140) 4 PSTWRKD3 

324(144) 4 PSTWRKD4 

328 (148) 4 PSTWRKD5 

332 (14C) 4 PSTWRKD6 

336 (150) i PSTWRKD7 

340(154) ve PSTCURWA 

344 (158) 4 PSTDLTWA 

348 (15C) 84 PSTDLROM 


***DATA BASE LOG SECTION* ** 


432(1B0) u PSTLOGWA 
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**Reserved** 


PSTWRKn are work words for 
buffer handler (DLZDBHOO) 


and data base logger. 


PSTWRKn is work space 
preserved across calls 


to the buffer handler. 


TO PASS THE FOLLOWING 


Reinsert index 

Secondary indexes only 
Primary indexes only 

Both primary and secondary 
indexes | 
PSTWRKDn is work space for 
use by DELETE/REPLACE, 


RETRIEVE, and LOAD/INSERT. 


Current delete work area 


First delete work area 
address 


Save and maintenance work 
area for retrieve 


Work area address for log O/P 


5-87 


Offset Field/Flag Flag 


Dec(Hex) Length Name Code (Hex) Meaning 
436 (1B4) i] PSTLOGQ Address of reuse queue QCB in 
pool | 


***DATA BASE LOG USE OF PSTWRK1*** 


PSTWRK1 Physical SDB address. If new 
block, low-order 2 bytes are 
call count. High-+order byte 
used for function code 


***DATA BASE LOG FUNCTION CODES*** 


DBLNDXC 80 Index maintenance call 

DBLCMC 00 Bits 1~+3 = 0, chain 
maintenance call 

DBLNTCR 70 Counter maintenance 

DBLLGDLT 60 Delete byte maintenance 

DBLPHYI GO Insert 

DBLPHYD 20 Physical delete 

DBLPHYR 10 Replace 

DBLOOPS 0A No data. End of user call 

DBLLASTC 08 Last change for user call 

DBLFSE1 00 Bit 5 = 0, one FSE (if bits 1 
or 2 on) 

DBLFSE2 04 Two FSEs (if bits 1 or 2 on) 

DBLPHYRO 02 Qld copy of a replace 

DBLNEWBL 01 New block log call 


***DATA BASE LOG USE OF PSTWRK2 ~ PSTWRK4*** 


Chain maintenance ~- Old copy of chain pointer (4 bytes). 
Insert/Delete - Offset and new FSEs (6 or 12 bytes) 


440 (1B8) 8 **Reserved ** 


***PARTITION/TASK INFORMATION** * 


448 (1C0) 8 PSTPCPGM Application program name. If 
batch UDR, ULR,or ULU; DBD 
name 

456 (1C8) 8 PSTPCPSB PSB name 

464(1D0) 1 PSTPCT1 Partition/task option 

PSTBATCH 80 PST is in batch partition 

PSTLODU 40 Load utility 

PSTLODUH 20 Load HDAM DB 

PSTHISMR 10 HISAM data base recovery in 

process 

PSTUST 08 Statistics utility 

PSTUDR 04 Data base recovery utility 

PSTULU 02 Data base load/unload utility 

PSTUSM 01 Security maintenance utility 
465 (1D1) 1 PSTPCT2 Program options/information 


overlaid on every call to the 
batch program request handler 


PSTXCONM 80 Exclude console message 

PSTXPRTM 40 Exclude printer message | P 

PSTCHKP 04 User checkpoint call (3 
successful | N 

PSTCALI 02 User*s call list is implicit 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
PSTPLI 01 User program is PL/I 
466 (1D2) 1 PSTERCOD Error message codes 
466 (1D2) 1 PSTERCD1 Error message code byte one 
467(1D3) 1 PSTERCD2 Error message code byte two 
468 (1D4) 7 PSTERDT1 Error message data for ACB or 
DTF name 
475 (1DB) 6 PSTCNVB Doubleword for HD randomizing 
module 
475 (1DB) 6 PSTERDT2 Variable error message data 
483(1E3) 1 PSTERIND Error routine indicator 
PSTDUMPI 80 Issue dump after error 
message put 
PSTCANLI 4Q Issue cancel after error 
message put 
484 (1E4) 72 PSTLIPRM Area to build user parameter 
list and register save area 
for MPS start and stop calls 
556 (22C) 8 PSTPLIPR PL/I region STXIT processor 
564 (234) 6 PSTNORO Number of owned resources 
570(238) 0 PSTQLEV Queue request level 
PSTQLEO 00 Read only level 
PSTQLUPD 04 Update level 
PSTQLEXC 08 Exclusive level 
570 (238) 4 PSTRRDF Pointer to first RRD 
574 (23C) 4 PSTRRDL Pointer to last RRC 
578 (240) 4 PSTRPSTA Remote PST (RPST) address. 
Contains 0 if not scheduled 
to a remote PSB. 
590(244) 12 **Reserved** 


*** REGISTER SAVE AREA*** 


592(250) 
664 (298) 
736 (2E0) 
808 (328) 
880(370) 
952 (3B8) 


1024 (400) 


72 
72 
72 
72 
72 
72 
72 


PSTSV1 
PSTSV2 
PSTSV3 
PSTSV4 
PSTSV5 
PSTSV6 


PSTSV7 


PSTSV1 through PSTSV7 are 
seven register save areas 
required for processing 
DL/I user calls. The 
convention used in storing 
registers in these save 
areas is to begin with 
R14 and end with R12; 

that is, R14, R15, RO, R1, 
R2, R3, R4Y, RS, R6, RIT, 
R8, R9, R10, R11, and R12. 
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QWA ~- QUEUING FACILITY WORK AREA 


DSECT Name: DLZQWA 


The QWA contains information used by the queuing facility module to 
build control blocks and. RDB queue headers. It also contains 
information used to locate the proper RDB for a particular resource ID. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name | : , Dec (Hex) Code (Hex) 
QWACPP . 16(10) 

*QWADCDDF 20 (14) 01 
QWAFLG1 20(14) 

QWAFLG2 21(15) 

QWAFLG3 22(16) 

QWAFLG4 23(17) 

QWAFPP | 12(0C) 

QWAHMLT 32(20) 

QWANCOQOH 28 (1C) 

*QWANPOF 20 (14) 02 
QWARDBQH 36(24) 


QWAWFD 24 (18) 
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oe 


RECORD LAYOUT - QWA 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 14 Module ID 
14 (OE) 4 QWAFPP First page pointer for free 
block management 
18 (12) 4 QWACPP Current page pointer for free 
block management 
22 (16) 1 QWAFLG1 First flag byte | 
QWADDDF 01 Do deadlock detection 
QWANPOF 02 New Prime owner exists. 
23 (17) 1 QWAFLG2 Second flag byte 
24 (18) 1 QWAFLG3 Third flag byte 
25 (19) 1 QWAFLG4 Fourth flag byte 
26 (1A) th QWAWFD Work field 1 
30(1E) 4 QWANOQH Number of queue heads 
34 (22) 4 QWAHMLT Hashing Multiplier 
38 (26) 4 QWARDBQH RDB chain queue headers (one 


FW/entry) 
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RDB - RESOURCE DESCRIPTOR BLOCK 


DSECT Name: DLZRDB 


The RDB (Resource Descriptor Block) is used to describe a resource for 
which enqueues are outstanding. In addition, it acts as an anchor for 
the chains of RRDs (Resource Request Descriptors) that describe the 
current queue requests for the resource. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 





Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
RDBLEN 24(18) 

RDBMAXL 8(08) 

RDBNOWN 12(0C) 

RDBPOID 0(00) 

RDBRDBRB 404) 

RDBRDBF 0(00) 

RDBRID 16 (10) 

RDBRRDF 8 (08) 

RDBRRDL 12(0C) 


RDBUOID 4(04) 


RECORD LAYOUT - RDB 


Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 1 RDBPOID Primary owner PST prefix 
number | 

0(00) 4 RDBRDBF RDB forward chain pointer 

4( 04) a 8 RDBUOID Update owner PST prefix 
number 

4(04) 4 RDBRDBB RDB backward chain pointer 

8(08) 1 RDBMAXL Maximum level of current 
owners 

8(08) q RDBRRDF Pointer to first RRD 

12 (0C) 1 RDBNOWN Current number of owners 

12 (OC) 4 RDBRRDL Pointer to last RRD 

16 €10) 7 RDBRID Resource ID 

23 (17) 1 **#Reserved ** 

24 (18) RDBLEN Length of RDB 
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RIB ~- REMOTE INTERFACE BLOCK 


DSECT Name: DLZRIB 


This DSECT describes remote interface block fields. The RIB is used by 
DL/I for CICS/VS intersystem communication (ISC) support. It defines 
fields passed between CICS/VS and DL/I. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 





Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
*RIBBUFAL 18 (12) 40 
*RIBCALL 20 (14) 40 

RIBCHAIN 4(04) 

RIBDLTR 22(16) 

RIBFCTR 21(15) | 
*RIBFUNC | 20014) 80 

RIBINDEX 16(10) 

RIBIOAWK | 8(08) ons 

RIBISC 18 (12) 

RIBISCI 20 (14) 

RIBISCO 19 (13) 

RIBLEN 24 (18) | 
*RIBLNKA 20(14) 20 
*RIBLNKSH 20(14) 10 

RIBPCBAL 0(00) | 
*RIBPCBM 18 (12) 80 

RIBRSET 23(17) 

*RIBSYNC 2 19 (13) 80 

RIBUPPER 12(0C) 
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RECORD LAYOUT - RIB 


Offset Field/Flag Flag 
Dec (Hex) Length Name __Code (Hex) Meaning 
0(00) 0 RIB Start of RIB DSECT. This 
| control block follows — 
immediately after the RPST. 
0(00) l RIBPCBAL Local PCB address list. 
4(04) 4 RIBCHAIN Remote PSB storage chain. 
8(08) 4 RIBIOAWK Local PSB I/O work area. 
12 (0C) 4 RIBUPPER Highest address of caller 
partition. 
16 (10) 2 RIBINDEX PCB index number. 
18 (12) 1 RIBISC ISC scheduling duration : 
flags: 
RIBPCBM 80 PCBM scheduling call issued. 
RIBBUFAL 40 RIBIOAWK buffer allocated. 
19 (13) 1 RIBISCO Isc outbound flags: 
RIBSYNC 80 Synchronization point issued. 
20 (14) 1 RIBISCI Isc inbound flags: 
RIBFUNC | 80 Function string invalid. 
RIBCALL 40 User call parameter list 
invalid. | 
RIBLNKNA 20 Link does not exist. 
RIBLNKSH 10 Link is out of service. 
21 (15) 1 RIBFCTR Isc response code. 
22 (16) 1 RIBDLTR Additional response 
information. 
23 (17) 0 RIBRSET Length of function dependent 
flags. 
23 (17) 1 Unnamed **Reserved** 
24 (18) RIBLEN Length of RIB. 
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RPCB ~- REMOTE PCB 


DSECT Name: DLZRPCB 


This DSECT describes remote PCB fields. The RPCB is an extension of PCB 
local storage used by DL/I for CICS/VS intersystem communication (ISC) 
Support. RPCBsS exist Only while a task is scheduled for a data base 
that is located on some other system. In this case, the address of the 
RPCB is located four bytes ahead of the PCB. 


RECORD LAYOUT =~ RPCB 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00). 0 RPCB Start Of RPCB DSECT. 
0(00) 4 RPCBMIOS Maximum PCB I/O area size. 
4(04) 4 RPCBSEGL Length of last retrieve. 
8(08) 1 RPCBFLAG Flag byte: 

RPCBPATH 80 Previous get hold path call. 
9(09) 3 Unnamed **Reserved** 
12 (0c) RPCBLEN Length of RPCB 
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RPDIR - REMOTE PSB DIRECTORY 


DSECT Name: DLZRPDIR 


This DSECT describes remote PSB directory fields. The RPDIR is an 
extension of the PDIR. It contains PSB information used by DL/I for 
CICS/VS intersystem communication (ISC) support. 


RECORD LAYOUT - RPDIR 


Offset 7 Field/sAFlag Flag 

Dec (Hex) Length Name ; Code (Hex) Meaning 

0(00) 0 RPDIR | Start of RPDIR DSECT 

0(00) 4 RPDIRSYS System name on which remote 
PSB is defined. 

&(Q4) 8 RPDIRPSB Name of PSB to use on remote 
system. 

12 (0C) RPDIRLEN Length of RPDIR 
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RPST ~- REMOTE PST 


DSECT Name: DLZRPST 


This DSECT describes remote PST fields. The RPST is an extension of 
task local storage used by DLZODP for CICS/VS intersystem communication 
(ISC) support. 


RECORD LAYOUT - RPST 


Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 0 RPST Start of RPST DSECT. 
0(€00) 4 RPSTISC1 ISC parameter 1. 
4(O04) 4 RPSTISC2 ISC parameter 2. 
8(08) - 4 RPSTISC3 ISC parameter 3. 

12 (0C) 4 RPSTISC4 ISC parameter 4. 

16 (10) 4 RPSTISC5 ISC parameter 5. 
20(14) 4 RPSTISC6 ISC parameter 6. 

24 (18) 1 RPSTATUS Flag byte. 

25 (19) 3 RPSTACTA Program's ACT entry address. 
28 (1C) RPSTLEN Length of RPST. 
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RRD - RESOURCE REQUEST DESCRIPTOR 


DSECT Name: DLZRRD 


The RRD (Resource Request Descriptor) is used to maintain a record of 
all the requests and their current status by one task for a particular 
resource. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
RRDFLAG 16 (10) 

RRDLEN 18 (24) 

RRDMAXL 12(0C) 

RRDNQEX 8 (08) 

RRDNQRO 0¢00) 

RRDNQUP G(O4) 

*RRDOWNF 16(10) 01 
*RRDPOWNF 16(10) O4 
RRDPSTP 16(10) 

RRDPSTQB 4(O4) 

RRDPSTOF 0(00) 

RRDRDBP 20 (14) 

RRDRDBQB 12(0C) 

RRDRDBOF 8€08) 

*RRDWAITF 16 (10) 02 
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RECORD LAYOUT - RRD 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 1 RRDNQRO Number of read-only 
: | ownerships for task 
0¢€00) 4 RRDPSTOQF PST queue forward pointer; 
next RRD for task 
4¢04) 1 RRDNQUP Number of exclusive (update) 
ownerships for task 
&(04) 4 RRDPSTQB PST queue backward pointer; 
prior RRD for task 
8(08) 1 RRDNQEX Number of exclusive 
ownerships for task 
8(08) 4 RRDRDBQF RDB queue forward pointer; 
next RRD for resource 
12 (0C) 1 RRDMAXL Current maximum ownership 
level for resource by task 
12 (0C) 4 RRDRDBQB RDB queue backward pointer; 
prior RRD for resource | 
16 (10) 1 RRDFLAG Flag byte 
RRDOWNF 01 PST owns resource 
RRDWAITF 02 PST is waiting for resource 
RRDPOWNF 04 PST is prime owner of 
resource 
16 (10) 4 RRDRDBP RDB address for resource 
20 (14) 4 RRDPSTP PST address for task 
24 (18) uy RRDLEN Length of RRD 
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SBIF ~ SUBPCOL INFORMATION TABLE 





DSECT Name: SUBINFTA 


The subpool information table is described as part of the general 
structure and description of DL/I buffer pool control blocks. There is 
one subpool information table for each subpool allocated. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
SUBBFHD | 3(03) 

SUEBFNO 2(02) 

SUBBFSIZ G4 (2C) 

SUBDMBCT 45 (2D) 

*SUBFRSV 3(03) 80 
SUBLEN 46 (2E) 

SUBNOQOFI 0(00) 

SUBNQLA 1(01) 

SUBUCHAIL 8 (08) 

SUBUCPRE &(04) 

SUBUCSUF 40 (28) 
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RECORD LAYOUT - SBIF 


Offset Field/Flag Flag 
Dec (Hex) Length Name __Code (Hex) Meaning 
0(00) 1 SUBNOFI PST prefix number of first 
task in chain for enqueue 
subpool 
1(01) 1 SUBNQLA PST prefix number of last 
task in chain for enqueue 
subpool 
2(02) 1 SUBBFNO Number of buffers in this 
subpool 
3(03) 1 SUBBFHD HDBFR indicator 
SUBFRSV 80 DMB assigned to this subpool 
by HDBFR parameter 
&(O4) 4 SUBUCPRE Accumulated number of buffers 
in preceeding subpools 
8(08) 32 SUBUCHAI Buffer use chain 
40 (28) SUBUCSUF (Not used in DL/I DOS/VS) 
44 (2C) 1 SUBBFSIZ Size of the kuffers in this 
subpool: 
X'01" = 512 bytes 
X*02" = 1024 bytes 
X"03"° = 1536 bytes 
X"04" = 2048 bytes 
X°05" = 2560 bytes 
X°06" = 3072 bytes 
X°07° = 3584 bytes 
X'O8" = 4096 bytes 
45 (2D) 1 SUBDMBCT Number of DMBs assigned 
46 (2E) 0 SUBLEN Length of subpool information 


table 
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SCD - SYSTEM CONTENTS DIRECTORY 





DSECT Name: DLZSCD 


The DL/I SCD (System Contents Directory) is produced during DL/I system 

definition for online CICS/VS-DL/I. The SCD is preassembled as part of 

the DL“I nucleus in the batch DL/I system. The SCD contains major entry 
pointers for all DL/I facilities. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
CPYRITE 0(00) 

SCD 96 (60) 

SCDABEND 200 (C8) 

SCDARBSAV 288 (120) 

SCDACTBA 264 (108) 

SCDASE 196 (C4) 

SCDATSKC 106 (6A) 

SCDEFPL 216 (D8) 

SCDBKWRK 352 (160) 

SCDCDTA 268 (10C) 

SCDCMTCT 384 (180) 

*SCDCMTI 284(11Cc) 4Q 
SCDCMXT 104 (68) 

SCDCOMRG 124(7C) 

SCDCPY10 180 (B4) 

SCDCCSABA 276(114) 

SCDCWRK 336(150) 

SCDCWRKL 340 (154) 

SCCDDATE 98 (62) 

*SCDDBASL 346 (15A). 02 
SCDDBFA 217 (D9) 

SCDDBFPL 216 (D8) 

SCDDBLAS 324(144) 

*SCCDELCJ 346(15A) 20 
SCDDBLCL 320 (140) 
*SCDDBLD2 346 (15A) 10 
SCDDBLFW 316 (13C) 

SCDDBMPS 304 €130) 

SCDDBLNT 148(94) 

*SCDDBLO 346(15A) 80 
SCDDBLOP 346(15A) 

*SCDDRLOR 346(15A) 4Q 
*SCDDBLSP 346(15A) 08 
SCDDELSV 328 (148) 

*SCDDBLTD 346(15A) 20 
SCDDBLWO 332(14C) 

SCDDDBHO 136(88) 

*SCDDELT 284(11C) 20 
SCDDHDS0O 160 (A0) 

*SCDDLARE 144(90) 28 
SCDDLICL 168 (A8) 

SCDDLICT 144(90) 

SCDDLIDL 232(E8) 

SCDDLIDM 228 (E4) 

SCDDLIDN 234 (EA) 
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Field/Flag 


Name 


SCDDLIDR 
SCCDDLIIN 
SCDDLIM 
SCCCLIPL 
SCDDLIPN 
SCDDLIPS 
SCDDLIRE 
SCDDLIS 
SCDDLIUP 
SCDCDLIV 
SCDDLOCT 
SCDDSEHO 
SCDDXMTO 
SCDERRMS 
SCDEXTBA 
SCDFLPC 
*SCDFLSAV 
*SCDHLRE 
SCDIWAIT 
*SCDLIPLI 
SCDLNGTH 
SCDLOCOU 
SCDLOWER 
SCDLCWID 
SCDLSTAD 
SCDMPCPT 
*SCDMTI 
SCDMXTSK 
*SCDNABND 
SCDNAVID 
*SCDNDMP 
*SCDNJINL 
*SCDNLOGI 
SCDNTWC 
SCDPDUP 
*SCDPI 
SCDPPAB 
SCDPPAF 
SCDPPFB 
SCDPPFF 
SCDPPSTL 
SCDPPSTN 
SCDPPSTS 
SCDPRHED 
SCDPSTLN 
*SCDOQFURN 
*SCDOQFSDC 
SCDQUEFW 
SCDQUEFO 
SCCREENT 
*SCDRELOD 
SCDREPLN 
*SCDRLABN 
*SCDRLRST 
*SCDRPSB 
SCDSEQ 
SCDSIND 
SCDSIND2 
*SCDSOPLG 
SCDSPCNT 
*SCDSYACT 
*SCDSYINT 


Offset 
Dec (Hex) 


152(98) 
156 (9C) 
97(61) 
224 (E0) 
226 (E2) 
220 (DC) 
140(8C) 
272(110) 
276 (114) 
96 (60) 
380(17C) 
172(AC) 
164 (A4) 
192(CO) 
300(12c) 
244 (F4) 
244 (FU) 
284(11C) 
188 (BC) 
244 (F4) 
392(188) 
348 (15C) 
108 (6C) 
120(78) 
292(124) 
296 (128) 
284 (11C) 
102(66) 
284(11C) 
116 (74) 
284 (11C) 
284 (11C) 
284(11C) 
286 (11E) 
388 (184) 
304 (130) 
248 (F8) 
244 (F4) 
256 (100) 
252 (FC) 
240 (FO) 
242(F2) 
236 (EC) 
132(84) 
260(104) 
172(AC) 
172 (AC) 
176 (BO) 
172 (AC) 
312(138) 
285 (11D) 
344 (158) 
285 (11D) 


285(11D). 


304 (130) 
342(156) 
284 (11C) 
285 (11D) 
285 (11D) 
282(11A) 
285 (11D) 
285 (11D) 


Flag 
Code (Hex) 


40 
08 


80 


80 
01 
04 


01 
02 


40 


08 
O04 


08 
O04 


10 
20 


01 


40 
02 
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5-103 


Field/Flag 


Name 


*SCDSYSAB 
*SCDSYWAT 
*S CCTAMOD 
*SCDTBHCL 
*SCDTCPOS 
*SCDTINDX 
SCDTKCNT 
SCDTKTRM 
*S CDTOLBH 
*SCDTPITR 
SCDTRACE 
SCDTRCNM 
*SCDTRETR 
SCDTRFL1 
SCDTRFL2 
SCDTSKCR 
*SCDTUSER 
*SCDTVSAM 
*SCDIWFI 
*SCDUPD 
SCDUPPER 
SCDUSAVE 
SCDWAIT 
*SCDXECB 


Offset 
Dec (Hex) 


-285(11D) 


285(11D) 
368 (170) 
368 (170) 
368 (170) 
368 (170) 
280 (118) 
204 (CC) 

369 (171) 
369 (171) 
356 (164) 
360 (168) 
368 (170) 
368 (170) 
369 (171) 
372(174) 
368 (170) 
368 (170) 
284(11C) 
284(11C) 
112(70) 

244 (F4) 

262(106) 
304 (130) 


Flag 
Code (Hex) 


80 
20 
40 
02 
10 
O01 


80 
40 


20 


80 
04 
08 
10 


80 
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RECORD LAYOUT - SCD 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 96 CPYRITE Reserved for copyright 
| information 
96 (60) 0 ScD Start of addressable SCD 


***SYSTEM CONFIGURATION SECTION*#** 


96 (60) 
97 (61) 


98 (62) 


102(66) 


104 (68) 


106 (6A) 


108 (6C) 


112(70) 


116 (74) 
120(78) 
124(7C) 


128 (80) 


***ACTION MODULE ENTRY POINT ADDRESSES*** 


132(84) 


136 (88) 


140 (8C) 


144 (90) 


148 (94) 


1 


1 


4 


4 


4 


SCDDLIV 
SCDDLIM 
SCDDATE 


SCDMXTSK 
SCDCMXT 
SCDATSKC 


SCDLOWER 


SCDUPPER 


SCDNAVID 
SCDLOWID 


SCDCOMRG 


SCDPRHED 


SCCDDBHO 
SCDDLIRE 


SCDDLICT 


SCDDLARE 28 


- SCDDBLNT 


DL/I version number 
DL/I release level 
System date - Julian 


DL/I minimum task count - 
online 


DL/I current maximum task - 
online 


Active DL/I task counter - 
online 


Partition lower boundary; 
address pointer to 
addressable part of the SCD 
(batch only) 


Partition upper boundary 
address 


Next available task ID 
Lowest task ID 
COMREG address 


**Reserved** 


Entry point of program 
request handler: 

Batch = DLZPRHBO 
Online = DLZPRHOO 


Entry point of buffer handler 
(DLZDBHOO) 


Entry point of retrieve 
(DLZDLROO) 


Entry point of call analyzer 
(DLZDLAOO ) 

Offset to entry point on 
return to call analyzer 


Entry point of data base log 
module (DLZRDBLO) = entry 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 


152 (98) 
156 (9C) 
160 (A0) 


164 (A4) 


168 (A8) 


172(AC) 


172(AC) © 


176 (BO) 


180 (B4) 


184 (B8) 


188 (BC) 


192(CO) 


196 (C4) 


200 (C8) 


204 (CC) 


208 (LO) 


5-106 


SCDDLID2 


SCDDLIIN 


SCDDHDSO 


SCDDXMTO 


SCDDLICL 


SCCDSEHO 


SCDQUEFO 


SCDQFSDC 


SCDQFJURN 


SCDQUEFW 


SCDCPY10 


SCDIWAIT 


SCDERRMS 


SCDASE 


SCDABEND 


SCDTKTRM 


04 


08 


point of log initialization 
until after initialization 


Entry point of delete/replace 
(DLZDLDOO) 


Entry point of load/insert 
for retrieve (DLZDDLEO) 


Entry point of space 
management (DLZDHDSO) 


Entry point of index 
maintenance (DLZDXMTO) 


Entry point of open/close 
(DLZDLOCO ) 


Entry point of routine to 
create work files for batch 
only (DLZDSEHO) 


Entry point of 
enqueue/dequeue module for 
program isolation - online 
only (DLZQUEFO) 
Displacement to SCD address 
field in DLZQUEFO 
Displacement to JRNAD exit 
address field in DLZQUEFO 


Enqueue/dequeue work area 


Entry point for field level 
sensitivity expansion routine 
(DLZCPY10) | 


**Reserved** 


Entry point of IWAIT routine: 
Batch = DLZIWAIT 
Online = DLZOWAIT 


Entry point of error message 
routine: 

Batch = ERRORMSG 

Online = DLZERMSG 


Entry point of online 
schedule and termination 
(DLZSCHDL) 


Entry point of DL/I ABEND 
routine: 
Batch = DLZABEND 
Online = DLZABNDO 
Entry point of online task 
termination for program | 
request handler (DLZTKTRM) 


**Reserved** 
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Label for buffer handler 


Number of buffer subpools 


directory 


entries 
entries 


directory 


entries 
entries |. 


prefix entries 


entries 
entries 


PST prefix 


Contains address of user 


DL/I registers 


Flag byte (used for MPS or 


0 = Currently executing in 
DL/I code (or in a user 
program that is not 


PL/I). 


1 = Currently executing in 


0 = USer Savearea used for 


1 = DL/I savearea used for 


Online backward PST prefix 


Online forward PST prefix 


Online backward PST prefix | 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
***SYSTEM CCNTROL BLOCK SECTION*** 
216 (D8) 0 SCDDBFPL 
216 (D8) 1 SCDBFPL 
217 (D9) 3 SCDDBFA Address of buffer pool 
control block prefix 
(DLZBFPL) 
220 (LC) 4 SCDDLIPS Address of PSB 
(DLZPDIR) 
224 (EO) 2 SCDDLIPL Length of PDIR 
226 (E2) 2 SCDDLIPN Number of PDIR 
228 (E4) 4 SCDDLIDM Address Of DMB 
(DLZDDIR) 
232(E8) 2 SCDDLIDL Length of DDIR 
234 (EA) 2 SCDDLIDN Number of DDIR 
236 (EC) 4 SCDPPSTS Address of PST 
(DLZPPST) 
240 (F0) 2 SCDPPSTL Length of PPST 
242 (F2) 2 SCDPPSTN Number of PPST 
244 (F4) 4 SCDPPAF Online forward 
| active pointer 
244 (F4) 4 SCDUSAVE Used for MPS or batch. 
savearea where 
are saved. 
244 (F4). eos oe SCDFLPC 
batch): 
SCDLIPLI 80 
written in 
e PL/I code. 
SCDFLSAV 40 
! | STXIT PC. 
STXIT PC. 
248 (F8) 4 . SCDPPAB 
oe : active pointer 
252 (FC) 4 SCDPPFF 
: So free pointer (DLZPPSTF) 
256(100) 4 SCDPPFB 
free pointer (DLZPPSTE) 
260(104) 2 SCDPSTLN Length of PST 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
262 (106) 2 SCDWAIT Number of tasks waiting for 
CMAX 
264 (108) 4 SCDACTBA Address of online application 
program control table © | 
(DLZACTBA) 
268 (10C) 4 SCDCDTA Address of current online 
dispatched task*s TCA 
272(110) 4 SCDDLIS | Address of first online task 
suspended 
276 (114) 4 SCDDLIUP Address of batch DL/I upper 
boundary 
276(114) 4 SCDCSABA Address of online CICS CSA 
280(118) 2 SCDTKCNT Count of DL/I tasks assigned 
PPST 
282(¢11A) 2 SCDSPCNT Count of suspended tasks due 
to maximum task 
284 (11C) 1 SCDSIND System indicator 
SCDMTI 80 DL/I Maximum task indicator 
SCDCMTI 40 DL/I current maximum task 
indicator | 
SCCDELT 20 - Online indicator for PSB has 7 ( 
delete sensitivity | 
SCDUPD 10 Online indicator for PSB has 
update sensitivity 
SCDTWFI 08 Task waiting for segment 
intent 
SCDHLRE 08 High level language reentry 
indicator STXIT 
SCDNDMP 04 No dump at ABEND 
SCDNLOGI 02 No data base logging to be 
done 
SCDNABND 01 Batch - no STXIT ABEND to be 
issued 
SCDNJNL 01 Online - no CICS journal in 
use 
285 (11D) 1 SCDSIND2 System flags 
- SCDSYSAE 80 System ABEND online 
SCDSYACT 40 System task active 
SCDSYWAT 20 System task waiting 
SCDRLRST 10 HD reload/restart 
SCCDRELOD 08 HD reload utility 
SCDRLABN O4 HD reload or reload/restart 
ABEND is in process 
SCDSYINT 02 Initialization bit 
SCDSOPLG 01 Open records written to CICS 
journal 
286(11E) 2 SCDNTWC Segment intent wait counter 
288(120) 4 SCDABSAV | Pointer to pseudo ABEND save 


area (DLZABSAV) 





5-108 Licensed Material ~- Property of IBM 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
292(124) 4 SCDLSTAD Address of CICS interface 
address list (DLZDLIAL) 
296 (128) 4 SCDMPCPT Address of MPC partition 
table 
300 (12€) 4 SCDEXTBA Pointer to SCD extension 
304(130) 1 SCDDBMPS Flag Byte 
SCCDXECB 80 XECBs defined by MPC 
SCDPI 40 Program isolation active. 
SCDRPSB 20 Remote PSB defined. 
305(131) 1 **Reserved** 
306 (132) 2 **Reserved** 
308(134) 4 **Reserved *#* 


***DATA BASE CHANGE LOG SECTION*** 


312(138) 
316 (13C) 


320 (140) 


324 (144) 


328 (148) 
332 (14C) 


336(150) 
340 (154) 
~342(156) 
344 (158) 


346 (15A) 


347 (15B) 
348 (15C) 
350(15E) 


352 (160) 


4 


mn 


SCDREENT 


SCDDBLFW 


SCDDBLCL 


SCDDBLAS 


SCDDBLSV 


SCDDBLWO 


SCDCWRK 
SCCDCWRKL 
SCDSEQ 
SCDREPLN 


SCDDBLOP 
SCDDBLO 


SCDDBLOR 
SCDDBLTD 
SCDDBLD2 
SCDDBLSP 
SCDDBLCJ. 
SCDDBASL 


~ SCDLOCOU 


SCDBKWRK 


80 
40 
20 
10 
08 
04 
02 


Entry point of log write only 


Entry point of log force 
write 


Entry point of log close 
routine 


Entry point of asynchronous 
log 


Entry point of log save area 


Entry point of write log open 
record 


Address of DB log work area 
Length of DB log work area 
DB log sequence number 
Length of DB log prefix 
Data base log option byte 
DB log is open 

DB log open required 

Disk logging used 

Two disk extents used 

Pause before extent switch 
CICS journal in use 

DB asynchronous log required 
**Reserved** 

Current log count 
**Reserved** 


Backout log workarea pointer. 
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Offset Field/Flag Flag 


Entry point of trace module 
if present 


Name of trace module 


Dec (Hex) Length Name Code (Hex) Meaning 
***TRACE SECTION*** 

356 (164) 4 SCDTRACE 

360(168) 8 SCDTRCNM 

368 (170) 1 SCDTRFL1 


SCDTUSER 80 
SCDTAMOD 40 
SCDTRETR 20 
SCDTCPOS 10 
SCDTVSAM 04 
SCDTBHCL 02 
SCDTINDX 01 


369 (171) 1 SCDTRFL2 
SCDTOLBH 80 
SCDTPITR 40 


370 (172) 2 


**+#STATISTICS SECTION*** (online only) 
372(174) 8 SCDTSKCT 

380(17c) 4 SCDDLOCT 

384(180) 4 ~ sepemrcr 

388(184) 4 = SCDPDUP 

392(188) SCDLNGTH 


Trace option byte 1 

User call interface 

Action module trace 

Retrieve (for GET calls) 
Current position information 
VSAM interface 

Buffer handler interface 
Requests to index maintenance 


Trace option byte 2 
Online trace 
Program isolation trace 


**Reserved ** 


Total number of PSB 


scheduling calls 


Program isolation deadlock 
occurrence count 


Number of times at current 
maximum task 


Number of duplicate PSBs 
created 


Length of SCD 
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SCDEXT = SCC EXTENSION 


DSECT Name: SCDEXTDS 


The SCD extension is generated in the same manner as the SCD (system 


contents directory) and is a logical extension of it. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec(Hex) _. Code (Hex) 

SCDAPSTR 24(18) Batch usage 

SCDEABEX 4(04) Batch usage 

SCDEABSV 8(08) Batch usage 

SCDEFECB 8(08) Online usage 

SCDEIDNX 24 (18) Online usage 

SCDEIDST 20 (14) Online usage 

SCDEIDWK 28 (1C) Online usage 

SCDELECB 0(00) Online usage 

SCDEMSGT 32 (20) Online usage 

SCDEPASS 16 (10) Online usage 

SCDEPCEX 12 (0C) Batch usage 

SCDEREEN 0(00) Batch usage 

SCDESECB G(04) Online usage 

SCDETRAN 16 (10) Batch usage 

SCDETRSV 20(14) Batch usage 

SCDETRTB 36 (24) Online usage and batch usage 
SCDETRTE 40 (28) Online usage and batch usage 
SCCETRTS 44(2C) Online usage and batch usage 
SCDEVSEX 12(0C) Online usage 

SCDEXLEN 52(34) Online usage 
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2 Soa! OO 


RECORD LAYOUT = SCDEXT 


offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 


***Online Usage of the SCD Extension*** 


0(00) 
4(04) 
8(08) 


12 (0C) 


16 (10) 


20 (14) 


24 (18) 


28 (1C) 


32 (20) 


36 (24) 
40 (28) 
44 (2C) 
48 (30) 
§2 (34) 


***Ratch Usage of SCD Extension*** 


0(00) 
404) 
8(08) 
12 (0c) 
16 (10) 
2014) 


24 (18) 


97112 


4 


4 


- £ 


4 


SCDELECB 


SCDESECB 


SCDEFECB 


SCDEVSEX 


SCDEPASS 


SCDEIDST 


SCDEIDNX 


SCDEIDWK 


SCDEMSGT 


SCDETRTB 
SCDETRTE 


SCDETRTS 


SCDEXLEN 


SCDEREEN 


SCDEABEX 


SCDEABSV 


SCDEPCEX 


SCDETRAN 


SCDETRSV 


SCDAPSTR 


Logger I/O ECB 
System enqueue ECB 
System function call ECB 


Address of VSAM EXCP exit 
(DLZOVSEX) 


Address of system password 
(DLZPASS) 


Address of first PPST ID 
assigned (DLZIDLST) 


Address of last active PPST 
ID (DLZIDLST) 


Address of PPST search table 
(DLZIDWRK) 


Address of online message 
module (DLZMMSGT) 


Current entry in incore table 
End address +1 of trace table 
Start address of trace table 
**Reserved** 


Length of SCD extension 


Address of utility block call 
entry point 


Address of STXIT ABEND 
routine (DLZAABND) 


Address of STXIT ABEND save 
area 


Address of STXIT PC routine 
(DLZPABND) 


Address of ABTERM transient 
area 


Address of transient save 
area 


Application program start 
address 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 

28 (1C) 8 (Not used in batch) 

36 (24) u SCDETRTB Current entry in incore table 
40 (28) 4 SCDETRTE End address +1 of trace table 
44 (2C) 4 SCDETRTS Start address of trace table 

48 (30) e **Reserved** 
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SDB _ ~ SEGMENT DESCRIPTION BLOCK 
DSECT Name: SDB 
The segment description block (SDB) is described as part of the general 


structure and description of the program specification block (PSB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec(Hex) | Code (Hex) 
*SDBALTSC 11 (0B) 20 
*S DBALTSQ 11(0B) 4Q 
*SDBCISP 11 (0B) 04 
*SDBCTR 37 (25) 80 
*SDBDCHG 11 (0B) 01 
SDBDDIR 12(0C) 

*SDBDPAR 11 (OB) 10 
SDBDSGA 28(1C) 

SDBEND 60 (3C) 

*SDBFLS 56 (38) 02 
SDBF3 10 (0A) 

SDEF4 11(0B) 

*SDBGEN 32 (20) 10 
SDBKEYFD 40 (28) 

SDBKEYLN 24(18) 

*S DBLCH 11 (0B) 01 
SDBLEN 60 (3C) 

SDBLEVEL 8 (08) 

*SDBLP 37(25) 02 
*SDBLTPK 37 (25) 04 
*SDBLTFD 37(25) 08 
SDBLTN 0(00) 

SDBLTP 0(00) 

SDBNSDB 16(10) 

*SDBORGHD 9¢09) 20 
*SDBORGHI 9¢€09) 10 
*SDBORGHS 9(09) 02 
*S DBORGH1 9(09) 04 
SDBORGN 9(09) 

*SDBORGRI 9(09) Q& 
*SDBORGSH 9(09) 05 
*SDBORGSS 9(09) 01 
SDBPARA 24 (18) 

SDBPCB 39 (27) 

SDBPCF 38 (26) 

*SDBPCTSP 32(20) 40 
SDBPHYCD 12 (0C) 

SDBPOSC 48 (30) 

*SDBPOSL 11 (0B) 02 
SDBPOSN 52(34) 

SDBPOSP G4 (2C) 

*SDBPP 37 (25) 10 
*SDBPPST 32 (20) 80 
*SDBPPTSP 32(20) co 
SDBPSDB 20(14) 

*SDBPTB 37 (25) 20 
SDBPTDS 37 (25) 
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Field/Flag 
Name | 


*SDBPTF 
SDBPTNO 
+#SDBSEND 
+S DBSENG 
*SDBSENI 
+S DBSENK 
*#SDBSENL 
#S DBSENP 
+#SDBSENR 
#S DBSENX 
*SDBSLC 
*SDBSLP 
*#SDBSNX 
*SDBSPP 
SDBSYM 
SDBTARG 
SDBTFLG 
SDBXFFSB 
SDBXFISL 
SDBXFL 
SDBXFLAG 
SDBXFLEN 
SDBXFLN 
SDBXFNB 
*SDBXFNR 
SDBXFSBP 
SDBXFUSL 
SDBXPANS 
SDBXPASF 
SDBXPEND 
SDBXPFDB 
+#SDBXPFS 
SDBXPMSK 
*SDBXPRES 
#S DBXPSI 
SDBXPSZ 
SDBXPTYP 
SDBXSQLN 
SDBXSQOF 
SDBXWMSK 


Offset 
Dec (Hex) 


37(25) 
36 (24) 
10(0A) 
10 (OA) 
10 (0A) 
10 (0A) 
10 (0A) 
10 (0A) 
10 €0A) 
10 (0A) 
32 (20) 
32 (20) 
32 (20) 
32 (20) 
0(00) 

33 (21) 
32 (20) 
16 (10) 
6 (06) 

56 (38) 
12 (0C) 
16 (10) 
2(02) 

1(01) 

12 (0C) 
8(08) 

4(04) 

56 (38) 
16 (10) 
20(14) 
0(00) 

0(00) 

4(04) 

56 (38) 
0(00) 

20 (14) 
0(00) 

14(0E) 
12(0C) 
8 (08) 


Flag 
Code (Hex) 
40 
10 
80 
40 
08 
01 
04 
20 
02 
02 
01 
04 
08 
(See 
(See 
(See 
(See 
(See 
(See 
80 (See 
(See 
(See 
(See 
(See 
(See 
02 (See 
(See 
01 
01 (See 
(See 
(See 
(See 
(See 
(See 
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SDBXP block at end of SDB) 
SDBXP block at end of SDB) 


SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 


SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 


block 
block 
block 
block 
block 
block 
block 


block 
block 
block 
block 
block 


block 


block 
block 
block 
block 
block 


end 
end 
end 
end 
end 
end 
end 


end 


end. 


end 
end 
end 


end 
end 
end 
end 
end 
end 


of 
of 
of 
of 
of 
of 
of 


of 
of 
of 
of 
of 


of 
of 
of 
of 
of 
of 


SDB) 
SDB) 
SDB) 
SDB) 
SDB) 
SDB) 
SDB) 


SDB) 
SDB) 
SDB) 
SDB) 
SDB) 


SDB) 
SDB) 
SDB) 
SDB) 
SDB) 
SDB) 
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RECORD LAYOUT ~- SDB 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 8 SDBSYM Segment symbolic name 
0(00) 4 SDBLTP Prior segment on logical twin 
chain 
0(00) 4 SDBLTN Next segment on logical twin 
chain 
8(08) 1 SDBLEVEL Level of this segment 
(logical) 
9(09) 1 SDBORGN Organization of data base 
containing segment 
SDBORGRI 44 This segment is root of index 
SDBORGHD 20 This segment is in a HDAM 
organization 
SDBORGHI 10 This segment is in a HIDAM 
organization 
SDBORGSH 05 This segment is in a simple 
HISAM organization 
SDBORGH1 04 This segment is in a HISAM 
organization 
SDBORGHS 02 This segment is in an HSAM 
organization 
SDBORGSS 01 This segment is in a simple 
| HSAM organization 
10 (OA) 1 SDBF3 Call sensitivity 
SDBSENG 80 Sensitivity is read only 
SDBSENI 40 Sensitivity is insert 
SDBSENR 20 Sensitivity is replace 
SDBSEND 10 Sensitivity is delete 
SDBSENK 08 Sensitivity is key only 
SDBSENP 04 Sensitivity is path only 
SDBSENX 02 Sensitivity is exclusive 
SDBSENL 01 Sensitivity is load 
11 (OB) 1 SDBF4 Code byte 
SDBALTSQ 40 Secondary index is main 
processing sequence 
SDBALTSC 20 Secondary index search fields 
require conversion 
SDBDPAR 10 Field is in destination 
parent 
SDBCISP 04 Control interval split 
occurred in HISAM KSDS 
SDBPOSL 02 Position lost 
SDBLCH 01 Field is in logical child 
SDBDCHG O01 Temporary switch for replace; 
data changed 
12 (0C) 1 SDBPHYCD Segment code 
12 (0C) & SDBDDIR DMB directory address 
16 (10) 4 SDBNSDB Next SDB for this PSDB 
20 (14) & SDBPSDB Address of PSDB 
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7 ON 


Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

24 (18) 1 SDBKEYLN Executable key length of key 
field 

24 (18) uf SDBPARA Parent SDB (address of PCB 
for root SDB) or address of 
prior SDB on ‘SDBTARG‘' chain 
for generated SDBs (SDBGEN on 
in SDBTFLG) 

28 (1C) 4 SDBDSGA Address of data set group 
section of JCB for data set 
containing segment 

32 (20) 1 SDBTFLG Logical relationship code 

SDBPPTSP co Segment is physical parent of 
target of SDBPARA 

SDBPPSP 80 Segment is physical parent of 
SCBPARA 

SDBPCTSP 40 Segment is physical child of 
target of SDBPARA 

SDBGEN 10 This SDB is a generated SDB 

SDBSPP 08 Segment is a virtual logical 
child 7 

SDBSNX 04 Segment is retrieved via 
index 

SDBSLC 02 (See bit flag 0001 0010) 

SDBSLP 01 Segment is a logical child 


SDBTFLG Bit Flags 


1xx0O xxxx 


xixO xxxx 


10xO0 xxxx 


11x0 xxxx 


01x0 xxxx 
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Inverted structure - The segment 
logically above this one is below it in 
the physical data base hierarchy. The 
segment logically above this one is 
represented by the SDB pointed to in 
SDBPARA. If SDBPARA points to a SDB for 
a logical child, this segment could be 
physically above either the logical child 
or its destination parent. A generated 
SDB pointed to by SDBTARG in the logical 
child"s SDB represents the destination 
parent. 


Logical relation - The segment 
represented by the SDB pointed to by 
SDBPARA is a logical child and this 
segment is either the physical parent or 
a physical child of its destination 
parent. 


This segment is the physical parent of 
the segment represented by the SDB 
identified as SDBPARA. 


The segment represented by the SDB 
pointed to in SDBPARA is a logical child 
and this segment is the physical parent 
of its destination parent (SDBTARG). 


The segment represented by the SDB 
pointed to in SDBPARA is a logical child 
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Offset Field/Flag Flag . , 
Dec (Hex) Length Name | Code (Hex) Meaning 


and this segment is a physical child of 
its destination parent. 


xxxO 1xxx This segment is the logical child ina 
virtual logical child concatenated 
segment and SDBTARG point to the logical 
child's physical parent. 


Xxx0 xxx1 This segment is the logical child in a 
normal concatenated segment and SDBTARG 
points to the logical parent. 


XXX1 xXxxx SDB is a generated SDB. 


0001 0010 SDB is a generated SDB for an index. If 
SDBTARG is non-zero, it points to the 
generated SDB for the index target. 


0001 0110 SDB is a generated SDB for a HIDAM root 
: segment. SDBTARG points to the SDB for 
the primary index segment. 


& 


33 (21) 3 SDBTARG Address of the logically 
: related segments SDB 
36 (24) 1 SDBPTNO Pointer number of first 
physical pointer 
37 (25) 1 SDBPTDS Physical pointer flag 
SDBCTR 80 This logical parent segment 
has a counter 
SDBPTF 40 This segment has a physical 
twin forward pointer 
SDBPTB 20 This segment has a physical 
twin backward pointer 
SDBPP 10. This segment has a physical 
parent pointer 
SDBLTFD 08 This segment has a logical 
twin forward pointer 
-SDBLTBK 04 This segment has a logical 
twin backward pointer 
SDBLP 02 This segment has a logical 


parent pointer 


38 (26) 1 SDBPCF —C§ Pointer number in parent to 
first occurrence of this 
segment type 


39(27) #£=21 SDBPCB Pointer number in parent to 
last occurrence of this 
segment type 


4Q (28) 4 SDBKEYFD The address within DBPCBKFD 
for key this segment. In 
generated SDB for logical 
destination parent: 


Byte 0 = physical segment 
code of logical 
child 

Bytes 1-3 = logical child's fi 
PSDB address \j 
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Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 

In generated SDB for physical 

destination parent: 

Byte 0 = Physical segment 
code of virtual 
logical child 

Bytes 1-3 = virtual logical 
child's PSDB 
address 

| 44 (2c) 4 SDBPOSP Previous position 
48 (30) 4 SDBPOSC Current position. xX‘80" in 
high-order byte = position 
lost, in conjunction with 
SDBPOSL in SDBF4 
52 (34) 4 SDBPOSN Next position (current 
position in generated SDBs) 
56 (38) 1 SDBXFL SDB expansion flag 
SDBXPRES O01 SDB expansion for secondary 
index processing sequence is 
present, (Secondary index is 
main processing sequence. ) 
SDBFLS 02 Segment has field level 
sensitivity 
56 (38) 4 SDBXPANS SDB expansion address 
60 (3C) SDBEND End of SDB entry 
60 (3C) SDBLEN Length of each SDB (SDBEND 


***SDB EXPANSION BLOCK**¥* 


DSECT Name: SDBXP 


This block is present if indicated in SDB; 


SDBXPRES. 

0(00) 1 
0000) 3 
4(O4) 4 
8(08) 4 


SDBXPTYP 


SDBXPSI 


SDBXPFS 


SDBXPFDB 


SDBXPMSK 


SDBXWMSK 


01 
02 


minus SDBSYM) 


see field SDBXFL, flag 


SDB expansion type 

SDB expansion is for 
secondary index 

SDB expansion is for field 
sensitivity 


Address of secondary index 
sequence field FDB 


Mask of XDFLD FDBs allowed in 
SSAS 


Work area reserved for 
open/close 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
Offset from DBPCBKFD to 


12 (0C) 2 SDBXSQOF 


14 (OE) 2 SDBXSOQLN 
16 (10) 4 SDBXPASF 
20 (14) SDBXPEND 
20 (14) SDBXPSZ 


SUBSEQ area (0 if area not 
present) 


Length of SUBSEQ field(s) 
minus 1 


Alternate sequence FSB 
pointer 


End of SDB expansion block 
entry 


Length of one SDB expansion 
block entry (SDBXPEND minus 
SDBXP) 


***SDB EXPANSION BLOCK FOR FIELD SENSITIVITY *** 


1(01) 1 SDBXFNB 
2(02) 2 SDBXFLN 
4(04) 2 SDBXFUSL 
6 (06) 2 SDBXFISL 
8(08) u SDBXFSBP 
12 (0C) 1 SDBXFLAG 
SDBXFNR 80 

13 (0D) 3 

16 (10) 0 SDBXFEND 
16 (10) 0 SDBXFLEN 
16 (10) 0 SDBXFFSB 


Number of FSBs 
Length of expansion block 


Length of segment in user's 
view 


Insert length of segment 
ACBGEN - first FSB address 


Flags 
At least one NOREPL rule 


**Reserved ** 


End Of SDB expansion block 
entry 


Length of one SDB expansion 
block 


Start of first FSB 
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SEC - SECONDARY LIST 


DSECT Name: DMBSEC 


The secondary list is described as part of the general structure and 
description of the DMB. The labels in SEC vary with the type of 
secondary index entry. See the field description listed by code type in 
the record layout. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 

Name Dec (Hex) Code (Hex) 
*DMBEXIT 1(01) 02 (See Code 40) 
*DMBEXLOD 1(01) 04 (See Code 40) 
*DMBEXTRN 0(00) 4Q 

DMBFDFLG 1(01) (See Code 04) 
DMBFDOFF 6(06) (See Code 04) 
*DMBFDONE 1(01) 10 (See Code 04) 
*DMBFDUSE 1(01) 01 (See Code 04) 
*DMBINDXD 0(00) Gy 

DMBIPSDB 8(08) (See Code 64) 
DMBISSOF 2(02) (See Code 64) 
DMBISSSC 8(08) (See Code 64) 
DMBNBYTE G(O4) (See Code 40) 
*DMBNXISS 0(00) 60 

*DMBNXXDS 0(00) 64 

DMBSCDE 0(00) 

DMBSECDB 4&(04) (See Code 01) 
DMBSECLN 16 (10) (See Code 64) 
DMBSECND 16 (10) (See Code 64) 
DMBSECNM 8(08) (See Code 01) 
DMBSECSC (04) (See Code 01) 
DMBSFCEN 12(0C) (See Code 08) 
DMBSFD 2(02) (See Code 01) 
DMBSFLEN 13(0D) (See Code 08) 
DMBSFLG 1(01) (See Code 01) 
DMBSFLG1 1(01) (See Code 40) 
DMBSFNAM 2(02) (See Code 08) 
DMBSFOFF 10 (OA) (See Code 08) 
DMBSFPSC 1¢01) (See Code 08) 
DMBSKYLN 1(01) (See Code 60) 
*DMBSLC 0(00) 02 

*DMBSLCF 0€00) 08 

DMBSLCFL 2(02) (See Code 02) 
DMBSLCIR 1(01) (See Code 02) 
*DMBSLP 0(00) 01 

*DMBSND 0(00) 80 

*DMBSNULL 1(01) 01 (See Code 40) 
DMBSOFF 2€02) (See Code 4&4) 
*DMBSOURC 0(00) 20 

*DMBSRCH 0(00) 04 

*DMBSUBSQ 0(00) 24 

*DMBSYMN1 1(01) O04 (See Code 04) 
DMBSYMOF 14 (0E) (See Code 44) 
*DMBSYM1 1(01) 08 (See Code Q4&) 
*DMBSYSFD 1(01) 02 (See Code 04) 
*DMBVKY 1(01) C'v'(See Code 01) 
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Field/Flag 


Name 


*DMBXDCON 

*DMBXDEQ 
DMBXDFLG 

*DMBXDLST 


DMBXDPAD | 


DMBXDSC 
DMBXDSDB 
*DMBXDSPC 
DMBXDSSC 
*DMBXDSSQ 
*DMBXDSSS 
*DMBXDSYM 
DMBXITAD 
DMBXNSDB 
DMBXNSSC 
DMBXPSDB 
DMBXSOFF 


Offset 


Dec (Hex) 


12(0C) 
12 (0C) 
12(0C) 
12 (0C) 
13(0D) 
8 (08) 
&(O4) 
12 (0C) 
4(O4) 
12 (0C) 
12(0C) 
12 (0C) 
4(04) 
4(04) 
4 (O04) 
8 (08) 
14 (OE) 


Flag 
Code (Hex) 
08 (See 
01 (See 
(See 
80 (See 
(See 
(See 
(See 
10 (See 
(See 
O04 (See 
20 (See 
4O (See 
(See 
(See 
(See 
(See 
(See 
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code 
Code 
Code 
Code 
Code 
Code 
Code 
code 
Code 
Code 
Code 
code 
Code 
Code 
Code 
Code 
Code 


44) 
44) 
44) 
44) 
44) 
Wuyy 
44) 
44) 
44) 
44) 
Gu) 
44) 
40) 
60) 
60) 
44) 
08) 


RECORD LAYOUT - SEC 


Offset Field/Flag Flag 
Dec (Hex) Length Name code (Hex) Meaning 
0(00) 1 DMBSCDE Code byte 
DMBSLP 01 Secondary list describes a 
logical parent 
DMBSLC 02 Secondary list describes a 
logical child 
DMBSRCH 04 Secondary list describes 
index search field(s) 
DMBSLCF 08 Secondary list describes 
logical. twin sequence field 
DMBSOURC 20 Secondary list describes 
index DDATA field(s) 
DMBSUBSQ 24 Secondary list describes 
index SUBSEQ field(s) 
DMBEXTRN 40 Secondary list describes 
index user exit routine 
DMBINDXD 44 Secondary list describes 


index target segment as seen 
from index pointer segment 
DMBNXISS 60 Secondary list describes 
index relationship as seen 
from index source segment 
DMBNXXDS 64 Secondary list describes 
index relationship as seen 
from index target segment. 
This list is not present if 
| ISS=TARGET | 
DMBSND 80 Last entry in secondary list 


**#*#THE FOLLCWING FIELDS ARE LISTED BY CODE TYPE*** 


***CODE 01 - DESCRIBES LOGICAL PARENT*** 


1(01) 1 DMBSFLG 
DMBVKY c*v' Key of logical parent is 
virtual 
2(02) 2 DMBSFD LOgical parent key length 
4(04) 1 DMBSECSC Segment code of referenced 
segment - a 
4(04) 4 DMBSECDB -DDIR address of referenced 
data base 
8(08) 8 DMBSECNM Segment name of referenced 
| segment 
**#*CODE 02 - DESCRIBES LOGICAL CHILD*** 
1(01) 1 DMBSLCIR Logical twin sequence insert 
rule — = | 
2(02) 2 DMBSLCFL Number of first and last 


logical child pointers in 
logical parent prefix 


Remaining fields are same as Code 01. 
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Offset 


Field/Flag Flag 


Dec(Hex) Length _ Name Code (Hex) Meaning 
***CODE O04 - DESCRIBES INDEX SEARCH FIELDS*** 


Five 1-byte flags associated 
with the following FDB 
offsets 

First part of symbolic 


pointer 


1(01) 5 DMBFDFLG 
DMBSYM1 08 
DMBSYMN1 04 
DMBSYSFD 02 
DMBFDUSE 01 
DMBFDONE 10 

6(06) 10 DMBFDOFF 

***CODE 08 - DESCRIBES LOGICAL TWIN SEQUENC 

1(01) 1 DMBSFPSC 

2(02) 8 DMBSFNAM 

10 (0A) 2 DMBSFOFF 

12 (0C) 1 DMBSFCEN 

13 (OD) 1 DMBSFLEN 

14 (OF) 2 DMBXSOFF 


***CODE 20 - DESCRIBES DDATA FIELD*** 


Same fields as Code O4& 


***CODE 24 - DESCRIBES SUBSEQ FIELD*** 


Same fields as Code 04 


#**CODE 40 - DESCRIBES INDEX 


1(01) 


2(02) 


4 (04) 
4 (04) 


8(08) 


5-124 


EXIT ROUTINE** 


1 DMBSFLG1 


DMBSNULL 01 
DMBEXIT 02 
DMBEXLOD 04 
2 
4 DMBNBYTE 
& | DMBXITAD 
8 
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Not first part of symbolic 
pointer (middle or last) 

This slot for system-related 
field 

This slot in use 

This entry processed by block 
builder 


Offset to FDB from, first FDB 
of ISS if this slot‘is in 
use. Otherwise, zero: 

E FIELD**#* 


Virtual’ logical child 
physical segment code 


FDB field name 
Offset to field in segment 


Code byte (same as FDBDCENF ' 
in FDB) 


Executable field length 


Offset to field in indexed 
segment 


* 


Flag byte 

Null field present 

Exit routine present 

Exit routine has been loaded 


***Reserved* ** 


If index field equals this 
byte, bypass indexing 


Address of index maintenance 
parameter CSECT 


***Reserved* ** 


Ma 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 


***CODE 44 - DESCRIBES INDEX TARGET SEGMENT*** 


1(01) 1 DMBSKYLN Executable length of key 
2(02) 2 DMBSOFF Offset to PSDB address 
pointer of index target 
segment 
4(04) 4 DMBXDSSC Segment code of index target 
segment 
4(04) ub DMBXDSDB DDIR address of index target 
segment 
8(08) 4 DMBXDSC Segment code of index target 
segment 
8(08) 4 DMBXPSDB PSDB address of index target 
segment 
12 (OC) 1 DMBXDFLG Code byte from associated FDB 
DMBXDLST 80 Last FDB in list 
DMBXDSYM 40 Index pointer is symbolic 
DMBXDSSS 20 Pointer contained in 
source/subseq data 
DMBXDSPC 10 Special FDB for secondary 
index 
DMBXDCON 08 Constant present 
DMBXDSSQ 04 SUBSEQ present 
DMBXDSOR 02 
DMBXDEQ 01 XDS=ISS 
13 (0D) 1 DMBXDPAD Padding constant 
14 (OF) 2 DMBSYMOF Offset to symbolic pointer 


***CODE 60 ~ DESCRIBES INDEX FROM ISS*** 


1(01) 


G(O4) 


4(04) 


3 
1 


4 


DMBXNSSC 


DMBXNSDB 


Remaining fields same as Code 44 


indexing segment 


Same as code 44 


Segment code of index pointer 
segment 


DDIR address of index 


***CODE 64 - DESCRIBES INDEX FROM INDEX TARGET*** 


1001) 
2(02) 


4 (04) 


8(08) 


8(08) 


a 
2 


DMBISSOF 


DMBISSSC 


DMBIPSDB 


Same as code 44& 


Offset to Code 60 from start 
of ISS secondary list 


Same as code 60 


Segment code of index source 
segment 


PSDB address of index source 
segment 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 

12 (0C) 1 Same as code 44 

16 (10) DMBSECND End of each secondary list 
entry 

16 (10) DMBSECLN Length of each secondary list 
entry 
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UIB - USER INTERFACE BLOCK 


DSECT Name: CLIUIB 


The user section of this control block is used by extended DL/I call 
interface support (along with CICS/VS high-level language support). 

This section contains scheduling and system call status information 
returned to the user. (Prior to Version 1.4, this information was 
returned to the user in the TCA.) A system section of the UIB follows 
the user section. It is used by DL/I as task-local storage. Unlike PST 
storage, UIB storage is not released at scheduling termination. 


| RECORD LAYOUT - UIB (USER SECTION) 


Offset Field/Flag Flag 

Dec (Hex) Length Name _Code (Hex) Meaning 

0(00) 0 UIB Start Of UIB DSECT. 

0(00) 4 UIBPCBAL PCB address list. 

4( 04) 0 UIBRCODE DL/I return codes. 

4(04) 1 UIBFCTR Return code. 

5(05) 1 UIBDLTR Additional information. 
6(06) 2 Unnamed **Reserved** 

8(08) UIBLEN Length of UIB (for Assembler 


language only). 
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RECORD LAYOUT - UIB (SYSTEM SECTION) 


offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
8(08) 64 UIBREGSV Register save area. 
72 (48) 8 UIBPSB PCB name on scheduling call. 
80 (50) 4 UIBFUNC Call function type. 
84 (54) i UIBFLAG1 UIB Flag. 
UIBSCHD 01 Scheduling call. 
UIBDB 02 Data base call. 
UIBTERM 04 Term call. 
UIBREMOT 80 PSB on remote system. 
85 (55) 1 UIBFLAG2 UIB flag. 
88 (58) UIBSLEN Length of user and system 
UIB 
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XMPRM - HDAM/HIDAM USER SECONDARY INDEX SUPPRESSION ROUTINE INTERFACE 
TABLE 


DSECT Name: DMBXMPRM 
This table is described as part Of the general structure and description 


of the data management block (DMB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
DMBXMPLN 28(1C) 

DMBXMRES 32(20) 

DMBXMSGN 0(00) 

DMBXMXDN 8(08) 

DMBXMXEP 24(18) 

DMBXMXNM 16(10) 


RECORD LAYOUT - XMPRM 


Offset Field/Flag Flag 

Dec (Hex) Length Name _ Code (Hex) Meaning 

0¢€00) 8 DMBXMSGN Name Of indexed segment 

8(08) 8 DMBXMX DN Name of XDFLD 

16 (10) 8 DMBXMXNM Name of user exit routine 

24 (18) 4 DMBXMXEP Entry point of user exit 
routine 

28 (1C) 2 DMBXMPLN Length of index maintenance 
parameters 

30 (1F) 2 ***Reserved* ** 

32 (20) 4 DMBXMRES Reserved for initialization 
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RECORD LAYOUTS 


The rest of this section provides layouts and field descriptions for the 
following records: 


Accumulation Header Record 
Accumulation Record 

Application Program Scheduling Record 
Application Program Termination Record 
Checkpoint Log Record 

Checkpoint Record 

Control Data Set 

Data Base Log Record 

Data Record (Input) 

Data Record (Output) 

Date/Time Table 

Delete Work Area 

Delete Work Space Prefix 

DL/1 Control Record 

Dump Header Record 

Dump Record Prefix 

File Open Record 

Header Record (Input) 

Header Record (Output) 

Index Maintenance Work Area 

List Control Block 

Output Record Containing Segment Prefix 
Output Takle Record 

Short Segment Table 

Sorted List Block 

SSA for GU Call by Key 

SSA for GU Call by RBA 

SSA for the XMAINT Call to the Analyzer 
Statistics Record 

Work File 1 

Work File 3 
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ACCUMULATION HEADER RECORD 


This record is used by modules DLZUC350 and DLZURDBO. 


Hex 


ay 


0 
2 


10 
18 
20 
21 
24 
28 


2A 


Dec 


0 
2 
4 


2) 


12 
16 
24 
32 
33 
36 
40 
42 


Name 


HLENGTH 
HSPACE 
HCODE 


HF LG 


HLRECL 
HORG 
HPURDATE 
HPURTIME 
HDDNAME 
HDBNAME 
HDSID 
HDATE 
HTIME 
HSEQ 


HBLKSIZE 


ACCUMULATION RECORD 


This record is used by 


Hex 


0 
2 
4 
5 


10 


Cec 


0 
2 
4 


16 





CIDLN 
CDBNAME 


CDSID 


Ln 


2 
2 
1 
1 


Oo ® 


= WwW FF 


modules 


Ln 


Pe FP W&M 


Description 
Length of cum header record 
Zeros 
Header record ID x‘'00' 
Type of data set and organization 
Bit 5=0 ESDS data set 
=1 KSDS data set 
6=0 HS data set 
=1 HD data set 
Record length 
Prefix organization code 
Purge date for data base data set 
Purge time for data base data set 
Data set symbolic filename 
pata base name 
Data set ID 
Run date - YYDDDF 
Run time - HHMMSSOF 


Zeros 


Block size 


DLZUC350 and DLZURDBO. 
Description 

Length of cum record 
Zeros 


X¥'50" record identifier 


Type of data set and organization 


Bit Meaning 


5=0 ESDS 
=1 KSDS 
=0 HS file 
=1 HD file 


Length of CDATAID field 
Data base name 


Data set ID 
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11 17 


14 20 
18 24 
1A 26 
1c 28 


APPLICATION PROGRAM SCHEDULING 


This record is used by modules 
DLZBACKO. 


Hex Dec 


oOo WW £ N oO 
Oo WwW fF Wb Oo 


ea) 


14 


CDATE 
CTIME 
CSEQ 
CCOUNT 


CDATAID 
CDATAOL 


CDATASEG 


Name 
LENGTH 


SPACE 


~~ LOGFLAG 


SCHDCODE 
PSBNAME 


CICSID 


Var 
Var 


~ Var 


Ln 


ie) 


RE F 


Date - YYDDDF 

Time ~ HHMMSSOF 

Sequence number 

Number of data elements of CDATA 

KSDS prime key or ESDS RBN 

One or more 4 byte data elements: 

bytes 0-1 - offset into data set record 


bytes 2-3 - length of corresponding 
CDATASEG 


One or more segment data entries to 


be moved into data set record. 


RECORD 


DLZRDBLO, DLZRDBL1, DLZLOGPO, and 


Description 


Length of record 

Binary zero 

Record type code ~ X‘'08' 
Task ID 

PSB name 


Packed CICS Transaction ID 
(online only) 


APPLICATION PROGRAM TERMINATION RECORD 


This record is used by modules DLZRDBLO, DLZRDBL1, DLZLOGPO, and 


DLZBACKO. 
Hex Dec 
0 0 

2 2 

4 

bs) 5 

D 13 

E 14 

36 54 
59-132 


Name 





PLENGTH 


PSPACE 


ALLOGFLG 


ALPSBNAM 


ALID 


TSKSTAT 


CICSID 


In 


2 
2 


40 


Description 


Halfword binary length of logical record 


Halfword reserved for system use 
(binary zero) | 


Identifies this logical record as 
application program termination 
record; value is X‘0Q7' 

PSB name © 


TASK ID 


10 fullwords of Accounting from PSTACCT 
(online only) | 


Packed CICS transaction I.D. 
(online only) , € 


ao 
Dy 
FEN 
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CHECKPOINT LOG RECORD 


Checkpoint log records are used to restart a job near its point of 
failure. The records are created and written on the DL/I log (if data 
base logging is active) if requested by the user via checkpoint calls 
(CHKP). Each log record contains a user-supplied unique checkpoint 
identification passed with the CHKP call. 


In case of a job failure in a batch environment, the backout utility can 
be run to backout data base changes occurring since the last checkpoint 
record was written. For MPS and/or online tasks with CICS/VS dynamic 
transaction backout active, backout is performed automatically to the 
last checkpoint when a task fails. 


Hex Dec Name Ln Description 
0 0O CHKPLEN 2 Length of log record 
2 2 CHKPSPC 2 Blanks/zeros 
Gu 4 CHKPCODE 1 Log record ID 
Flag Name Hex Code Meaning 
CHKPLRID 41 Checkpoint Log record ID 
>> +5 CHKPPSB 8 Checkpoint PSB name 
D 13 CHKPID 8 User checkpoint ID 
15 21 CHKPRLEN Length of checkpoint log record 


CHECKPOINT RECORD 


This DSECT (RCHKREC) defines the format of the checkpoint records within 
the unloaded data base for HD reorganization unload/reload utilities. 


Hex Dec Name Ln Description 
0 0 RCHKPTID 1 Identifies checkpoint record; 

Always X*‘0OO° 

1 1 RCHKNAME 6 constant for checkpoint record; 
Always C*CHKPNT* 

7 7 RCHKNUM 4 Checkpoint number; 1-9999 (decimal) 

B 11 1 Comma, for message to SYSLOG and SYSLST 

Cc 12 RCHKVOL1 6 If tape, file serial 


number of output volume one at 
checkpoint time. If DASD - **#*#*%, 


12 18 1 Comma, for message to SYSLOG and SYSLST 
13 19 RCHKVOL2 6 If tape, file serial 
number Of output volume two at 
checkpoint time. If DASD - **#*#*#*#, 
19 25 1 Comma, for message to SYSLOG and SYSLST 
1A 26 = RCKSEGNM 8 Segment name of root segment in process 
at checkpoint time 
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22 34 4 Reserved for future use 


26 38  $RCHKRECL 2 Length of I/O area needed for GU call 
at restart time 
28 40 RCHKPOSC 4 RBN of current record, if HD organization 
2c 844 RCHKPTNR 1 Number of checkpoint records 
(1 or 2) 
2D 45 RCHKEYLN 1 Key length of current segment, if 
HISAM 
2E 46 RCKEYVAL 236 Segment sequence field value, if 
HISAM 
11A 282 Reserved 12 Reserved 
126 294 RCHKSEG 4 Total number of segments unloaded 
12A 298 RCHKROOT 4 Total number of root segments unloaded 
12E 302 RCHKREND - + Var Statistics table 


Notes: e Dummy checkpoint record does not contain statistics table. 
e Checkpoint message written to SYSLOG and SYSLST consists of 
message prefix ereaate followed by bytes 1 + 34 of the 
checkpoint record. 3 
CONTROL DATA SET 
Macro DLZUCDSO contains the DSECT defining format of a control list 
entry. One or more list entries may be contained in the control list. 


The control list may spread over one or more control list blocks. 


*#**Control Information and Identifier#** 


Hex Dec Name Ln Description 
0 0 LECELCNT 2 Number of 1600 byte records in 
control data set 
2 2 LELSTLOC 2 Displacement to next entry 
4 4 - LECDSID 20 Identifier: " CONTROL DATA SET ‘. 
18 24 LEFLG4 1 Flag byte 4: 


FLAG Name Hex Code Meaning 


LESTAT | 80 Statistics to be provided 
LESUMM 40 Give summary for message DLZ978I 
19 25. ~—sCUnnamea se +#Reserved*t | 
1A 26 LESRTSZE —-_-2 Maximum work file record length used 


as SORT size parameter by prefix 
resolution utility (DLZURG10). 
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***Data Base List Entry*** 


Hex 


0 


10 
12 


13 


12 


16 
18 


19 


Name Ln 
LEFPTR 4 
LENAME 8 
LESLPTR 4 
LECRNO 2 
LELEN 1 
LEFLG1 1 


Description 


List entry forward pointer (to 
next list element at same level) 


DBD name. 


List entry sublist pointer (to list 
at next lower level) 


Input control card number 
Length of list entry 


Flag byte 1: 


Flaq Name Hex Code Meaning 


LEF1SOPT 80 
LEF1SMET 40 
LEF1S 02 
LEF1R 01 
LEF1II 00 


***Segment List Entry*** 


Hex 


0 


10 
12 


13 


14 


18 


Dec 


0 


12 


16 
18 


19 


20 
24 


Name in 
LEFPTR 4 
LENAME 8 
LESLPTR 4 
LECRNO 2 
LELEN 1 
LEFLG1 1 


User specified scan method option 
If bit 1=0 use SEQ scan method 

If bit 1=1 use SEG scan method 
Data base is scanned 

Data base is reorganized 

Data base is initially loaded 


Description 


List entry forward pointer (to 
next list element at same level) 


Logical parent segment name. 


List entry sublist pointer (to list 
at next lower level) 


Input control card number 
Length of list entry 


Flag byte 1: 


Flag Name Hex Code Meaning 


LEF1SOPT 80 
LEFISMET 40 
LEF1S 02 
LEF1R 01 
LEF1I 00 
LEPSDB 4 

LELSDB 4 


***Secondary List Entry*** 


Hex Dec 


0 


Name Ln 


o_o 


LEFPTR 4 


User specified scan method option 
If bit 1=0 use SEQ scan method 

If bit 1=1 use SEG scan method 
Data base is scanned 

Data base is reorganized 

Data base is initially loaded 


PSDB for segment entry 


LSDB for segment entry 


Description 


List entry forward pointer (to next list 
element at same lavel) 
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10 


12 
13 


14 
15 


17 


4 
12 


14 


15 


16 


18 


19 


20 
21 


23 


LENAME 
LEFDLP 


LEFLG3 


8 
2 
1 


Referenced data base name. 
Length of logical parent concatenated key. 


Flag byte 3: 


Flag Name Hex Code Meaning 


LET23 
LELCSQ 
LENLC 


LELPCK 
LELPOA 


Unnamed 


LEFDLC 


LELEN 


LEFLG1 


1 
1 


80 
40 
20 


02 
01 


Use type 20/30 records. 

Use logical child sequence field. 

No logical child found for logical 
parent. 

Use logical parent concatenated key. 
Use logical parent old address. 


**Reserved** 


Position of logical 
child pointers in prefix 


Length of list entry 


Flag byte 1: 


Flag Name Hex Code Meaning 


LEF1SOPT 
LEF1ISMET 


LEF1S 

LEF1R 

LEF1I 
LELCSC 


LEFLG2 


1 
1 


80 
40 


02 
O1 
00 


User specified scan mehtod option 
If bit 1=0 use SEQ scan method 
If bit 1=1 use SEG scan method 
Data base is scanned 

Data base is reorganized 

Data base is initially loaded 


Logical child's segment code 


Flage byte 2: 


Flag Name Hex Code Meaning 


LECTR 
LELCF 
LELCL 
LELP 

LELTF 
LELTB 
LECUS 


Unnamed 


DATA BASE LOG RECORD 


80 
40 
20 
10 
08 
04 
02 


Update counter 

Update logical child forward pointer 
Update logical child last pointer 
Update logical parent pointer 

Update logical twin forward pointer 
Update logical twin backward pointer 
Counter used this logical child 


**Reserved** 


This record is used by modules DLZRDBLO, DLZRDBL1, DLZBACKO, DLZLOGPO, 
DLZURDBO, DLZUC1i50, and DLZUC350. 


Hex 


0 
2 


4 


Dec 


S amneemeteaee meme 


0 
2 
4 
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Name 
DLENGTH 
DSPACE 


DLOGCODE 


in 


2 
2 
1 


Description 
Length of record 
Zero 

Log record ID 


X°50" = Data base log record 
X*°51" = Old copy of a replaced segment 
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5 fs) DLOGFLG1 1 


0-3 Task ID 
4-7 Count of FSE records present 


6 6 DLOGFLG2 1 





0=1 Index maintenance record 
1-3=001 Physical replace 
=010 Physical delete 
=100 Physical insert 
=110 Logical delete 
=000 POINTER maintenance record 
=111 Counter Maintenance 
Last record of a change group 
ESDS data set 
KSDS data set 
HS organization 
HD Organization 
New block call 


nH ne 
tun tt Wet 
FPRPOrROPF 


J 


7 7 DLOGFLG3 1 


O=1 REPL call 

1=1 DLET call 

=1 ISRT call 

364=00 Modification by control region 

=01 Modification by message or batch 
message program 

=10 Modification by batch program 
Reserved 

1 First log record of a segment 

1 Last log record of a segment 


© 
© 


DIDLN 2 Length of DDATAID field 
10 DOFFSET 2 Data offset from beginning of block 


12 CDATALN 2 Length of DDATA field 


? AQ Pp 


14 CCCODE 2 DL/I completion code 
10 16 DPGMNAME 8 PSB name 
18 24 DDBDNAME 8 Data base name from the DMB 
20 32 DDSID 1 File identification within the DMB 
21 33 CDATE 3 Date - YYDDDF 
24 36 CTIME 4 Time - HHMMSSOF 
28 40 DSEQ 2 Sequence stamp 
2A 42 CDATAID Var KSDS - KSDS prime key 
ESDS - Relative block number 
POINTER maintenance record (DDATALN is set to H'4') 
DDATA 4 New pointer value 


4 Old pointer value 
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LOGICAL DELETE record (DDATALN is set to H‘'2') 
DDATA 2 Segment code and new delete byte 


2 Segment code and old delete byte 


PHYSICAL INSERT record (DDATALN is set to segment length) 


DDATA Ve New segment data 
DFSEOFF 2 Offset to FSE 
DFSE 4 New FSE value 


If more than one FSE changes, DFSEOFF and 
DFSE are repeated for each additional one. 


PHYSICAL DELETE record (DDATALN is set to segment length) 


DDATA V* Old segment data 
DFSEOFF 2 Offset to FSE 
DFSE 4 New FSE value 


If more than one FSE changes, DFSEOFF and 
DFSE are repeated for each additional one. 


PHYSICAL REPLACE record (DDATALN is set to segment length) 


DDATA ve Old segment data - DLOGCODE = X‘51' 


New segment data - DLOGCODE X*50* 
vV* = varies with segment length 
DCOUNTER The last four bytes of every log record contain the 
log record sequence number. Numbers are incremented 
by one. The sequence number of the first record is 
one. | 
DATA RECORD (INPUT) 


This record is used as input to module DLZURRLO. 





Hex Dec Name In Description 
0 0 Unnamed 4 ESDS RBA identifier; 
unused if KSDS 
4 4 DSIDIN 1 Character I if KSDS; 0 if ESDS 
5 5 Unnamed 3 Reserved — 
8 8 Unnamed Var | KSDS or ESDS physical record image. The 


first four bytes contain the VSAM 
relative byte address (RBA) of the next 
ESDS record containing overflow dependent 
segments for the root segment. The RBA 
is zero if no (more) ESDS records follow. 
The last byte of the data record contains 
a special physical code X‘'0*. If the 
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PSone 


DATA 


RECORD 


(OUTPUT) 


data base contains only HISAM root 
segments and ACCESS=SHISAM, the physical 
code and RBA do not exist. 


This output record is used by module DLZURUPO. 





Hex Dec Name 
0 0 CONTOUT 
4 4 DSIDOUT 
5 3 BLNKDOUT 
6 6 DSRECLN 
8 8 DATA 


DATE/TIME TABLE 


This record is used by 


Hex Dec . Name 
0 0 TABFLAG1 
1 1 TABFLAG2 
2 2 TARFLAG3 
3 3 TABFLAGG 
4 4 TABFLAG5 
8 8 TABRFLAG6 


DELETE WCRK AREA 


This record is used 


Hex 


Dec Name 


Seemann 


0 DLTRSCID 


Ln 


4 


No Ff 


Var 


modules 


Ln 


1 


Ln 


7 ; 


Description 


ESDS RBA identifier; unused 
if KSDS 


Character I if KSDS; O if ESDS 
(Not used) 
Record size + prefix length 


KSDS or ESDS physical record image. The 
first four bytes contain the VSAM 
relative byte address (RBA) of the next 
ESDS record containing overflow dependent 
segments for the root segment. The RBA 
is zero if no (more) ESDS records follow. 
The last byte of the data record contains 
a special physical code X'0O'. If the 
data base contains only HISAM root 
segments and ACCESS=SHISAM, the physical 
code and RBA do not exist. 


DLZUCCTO and DLZUC150. 
Description 
Blank. Used as table delimiter 


Contains a 0 or 1 to denote routing 
for the data base in this table 


Contains flags as follows: 


Name Bit Meaning 
TABF3N 0 Record to LOGOUT if 1 
TABF3DT L 


Purge date specified 


Reserved for future use 


Reserved for future use 


Contains date/time, if specified 


by module DLZDLDOO. 


Description 


Resource ED for PI queuing 
(must be first in WKA) 
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10 


10 
14 
18 
ic 
20 
22 
24 


28 
2C 
30 
34 


— 36 


38 


38 


3C 


40 


ay 


5-140 


12 


16 


16 
20 
24 
28 
32 
34 


36 


4Q 
44 
4s 
52 


54 
36 
36 


60 


64 


68 


RBA portion of resource ID 

Chain (prior content PSTWRKD1-2) 
ID of current work area; DMB 
number, ACB number, and work 

area sequence number 

DMB/ACB number part of resource ID 
DMB number 

Prior scan exit address (PSTWRKD2) 
Address of next WKA 


Switch 


Flag Name Hex Code Meaning 


DLTRSCRB 4 
DLTCHN 8 
DLTPWAID 4 
DLTRSCID 3 
DLTDMBNO 2 
Unnamed K 
DLTWANXT 4 
DLTWASW 1 
DLTWSBEG 01 
DLTERFLG 02 
DLTLRFLG 04 
DLTVRFLG 08 
DLTSCFLG 10 
DLTIMFLG 20 
DLTWAPRI 4 
DLTDMB 4 
DLTSPSDB 4 
DLTLPSDB 4 
DLTSLEV 2 
DLTTEMPH 2 
DLTESECL 4 
DLTEDMB 4 
DLTEPSDB 4 
DLTERBN 4 
DLTLPKOF 2 
‘DLTWASZ 2 
DLTMID 36 
DLTPLT 4 
DLTCLT 4 
DLINLT 4 
DLTTEMP1 4 


First work area in work space 
R-O record flag required 

R-O record flag required 

due to LP LC counter update 
Verifies are required 
Pre-scan was. done 

Index maintenance was done 


Address of prior WKA 
DMB address of this WKA 


Scan start PSDB 


Scan end PSDB 


Level at which scan started 
Half word temporary save area 


Secondary list address 
causing exit 


Exit DMB address 
Prior DMB*s PSDB (exit point) 
Exit RBN 


Offset from DLTWA to 
concatenated key 


Length of this work area 
‘Middle* of WKA 


Save area for prior L/C 
on twin chain 


Save area for current L/C 
on twin chain 


Save area for next L/C 
on twin chain 


Working register save area (R6) 
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48 
4c 
50 
54 


54 


54 
58 
5C 
64 


88 


DELETE WORK SPACE PREFIX 


72 
76 
80 
84 


84 


84 
88 
92 
100 


136 


Working register save area (R7) 
Working register save area (R8) 
Working register save area (R9) 
Level information beginning 


Flag byte 


Flag Name Hex Code Meaning 


DLTTEMP2 u 
DLTTEMP3 4 
DLTTEMP4 4 
DLTLEVEL 8 
DLTRFLG 1 
DLTSVPP 0 
DLTSVPC 0 
DLTLDO 0 
DLTKEYSW 0 
DLTTEFLG 0 
DLTPSDB 4 
DLTRBN & 
DLTLEVLN 8 
DLTMIDLN 2 
DLTWALN 9 


1 
2 
3 
u 
8 


6 
2 


This record is used by module 


Hex 


0 


10 


14 


Dec 


0 


12 
16 


14 


Name 


DLTBLKNM 


DLTBUFFA 


DLTNXTWS 
DLTPRIWS 


DLTSIZWS 


DL/I CONTROL RECORD 


4 


in 


This record is used by module 


Hex 


PT EN, 


0 
3 


10 


pec 


ATT 


0 
3 


Name 


RECDATCR 


RECTIMCR 


RECDATRE 


RECTIMRE 


RECDATER 


Ln 


Wo Wm WW WN W 


Licensed Material ~- Property of IBM 


Save segment and parents 
Save segment and physical children 
Logical delete only 
Key stored for this level 
Temporary lock enqueue was done 
Current PSDB this level 
RBN of segment this level 
Length of level information entry 
Length of last half work area 


Length of basic delete work area 


DLZDLDOO. 


Description 


Block number of buffer (from | 
PSTBLKNM) 


Address of buffer prefix 
(from PSTBUFFA) 


Address of next work space 
Address of prior work space 
Usable size of this space 


Reserved 


DLZDLOCO. 


Description 
Creation date - YYDDDF 


Creation time HHMMSSTHOF 


Recovery date - YYDDDF 


Recovery time HHMMSSTHOF 


Reserved 


9-141 


RECTIMER >: 


13 19 Reserved 

18 24 RECNXRBA 4 Not used 

1c 28 RECDOS 3 DL/I component code (DLZ) 

1E 31 RECVERS 3 Version and release level 

22 34 RECPTF 2 PTF number 

24 36 RECLKSDS 4 KSDS record length (HISAM only) 

28 40 RECLESDS 4 ESDS record length 

2C 44 | RECORGAN 1 Data base organization 

| Name ; Character Meaning 

RECHDAM D. HDAM 
RECHIDAM I HIDAM 
RECHISAM S | HISAM 

2D 4&5 Var Reserved to end of control interval 


DUMP HEADER RECORD 


This record is used by modules DLZUDMPO and 





DLZURDBO. 


future use 


Reserved for future use 


Name of the DMB devised from the Data 


Base Description (DBD) 


Contains the name of the key sequenced 


data set if this is dump of a KSDS 


Julian date in packed decimal - OOYYDDDF 
Time in packed decimal - HHMMSSOF 


Contains the name of the entry sequenced 


data set if this is dump of an ESDS 


Contains KSDS control interval size if 


this is dump of KSDS data set 


Hex Dec Name Ln Description 
0 0 DHSAMCTL 1 Reserved for 
1 1 DUMPID 1 Character D . 
2 2 ‘DCBENOOUT 2 
4 4 DUMPDBDN 8 
Cc. 22 DICDNOUT 8 

data set 

14 20 DDATEOUT 4 

18 24 DTIMEOUT § 

ic 28 COLDNOUT 8 

data set 
24 36 DIBLKOUT 2 
26 38 DIRECOUT 2 
| dump of KSDS 
28 40 DOEPELKOUT 2 
this is dump 
2A 42 DORECOUT 2 
| dump of ESDS 
2C 44 DKEYLEN 2 
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Contains KSDS record length if 


data set 


Contains ESDS control interval size if 


Of ESDS data set 


Contains ESDS record length if 


Contains KSDS key length if 


2E 


30 


46 


48 


DKEYPOS 


DDEDORG 


DUMP RECCRD PREFIX 


2 


1 


dump of KSDS 


Contains KSDS relative key 
positive if dump of KSDS 


Data set organization code 


This record is used by module DLZUDMPO. 


Hex Dec 
0 0 
4 & 
5 5 
6 6 
8 8 


Name 





COUNTOUT 
DSIDOUT 
Reserved 
DSRECLN 


DATA 


FILE OPEN RECORD 


This record is used 
and DLZUC350. 


Hex Dec 
0 O 
2 2 
4 4 
5 5 
7 7 

10 16 

18 24 

20 32 

21 33 

24 36 

28 40 


HEADER RECORD 


Name 


DLENGTH 
DSPACE1 
DLOGCODE 


DLOGFLG1 


DSPACE2 
DPGMNAME 
DDBDNAME 


CDSID 


CDATE 
DTIME 


DCOUNT2F 


by 


(INPUT) 


This record is used as 


Hex Dec 
0 0 


Name 





Unnamed 


Ln 


y 


mF 


Var 


modules 


Ln 


N 


wo FF ND 


Description 


EFSDS RBA identifier; record count if KSDS 


Character I if KSDS; O if ESDS 
Reserved for future use 
Record size + prefix length 


Physical record image 


DLZRDBLO, DLZRDBL1, DLZLOGPO, DLZUC150, 


Description 

Length of record 

Binary zero 

Record type code - X‘2F' 
Data set organization 
X¥‘00" = ESDS | 
X"04* = KSDS 

Binary zero 


Data set filename (ACB) 


DMB name 


DSGACBNO (2 if HISAM 
ESDS; otherwise 1) 


Binary zero 
Binary zero 


Log record sequence number 


input for module DLZURRLO. 


Ln 


1 
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Description 


X"FF" header/statistic record identifier 
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14 
18 
1c 


24 


26 


28 


2A 
2C 
2D 


2E 


HEADER RECORD 


12 


20 
24 
28 


36 


38 
40 


42 
Q4 
45 


46 


IDIN 


RECLNOUT 
CEDNAME 
DDNAMEI 


Unnamed 
Unnamed 
CDNAMEO 


BLKSIZEI 


LRECLI 


BLKSIZEO 


LRECLO 
Unnamed 
KEYLENGI 


KEYPOSI 


(OUTPUT) 


NO 


N 


N N 


DF 


Character R 


Size of output record, including 
prefix 


Name of the DMB derived from the 
Data Base Description (DBD) 


Name Of key sequenced data 
set (KSDS) 


Julian date in packed decimal-0O0OYYDDDF 
Time in packed decimal~HHMMSSOF 
Name of entry sequenced data set (ESDS) 


KSDS record length * number of 
records/control interval 


KSDS record length 


ESDS record length * number of 
records/control interval 


ESDS record length 
0; (Not used) 
KSDS key length 


KSDS relative key position 


This record is used by module DLZURULO. 


Hex Dec 
0 0 
1 1 
2 2 
u 4 

Ce 12 

14 20 

18 24 

ic 28 

24 36 

26 38 

28 40 

57144 


Name 


HSAMCTRL 


IDOUT 


RECLNOUT 


DBDOUT 


IDDNOUT 
DATEOUT 
TIMEOUT 
CDDNOUT 


IBLKSOUT 


ILRECOUT 


OBLKSOUT 


Ln 


1 


Description 


X"FF" header/statistic record identifier 
Character R 
Size of output record, including prefix 


Name of the DMB derived from the Data 
Base Description (DBD) 


Name of key sequenced data set (KSDS) 
Julian date in packed decimal-0OOYYDDDF 
Time in packed decimal-HHMMSSOF 

Name of entry sequenced data set (ESDS) 


KSDS record length * number of 
records/control interval 


KSDS record length y 


ESDS record length * number of \ 
records/control interval 
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2A 42 CLRECOUT 2 ESDS record length 
2C 44 IKEYLENG 2 KSDS key length 


2E 46 IKEYPOS 2 KSDS relative key position 


INDEX MAINTENANCE WORK AREA 


This record is used by module DLZDMXTO. 


Hex Dec Name Ln Description 
0 0 XSAVDSGA 4 Save location for caller's DSG 
4 4 XSAVPCB 4 Save location for caller's PCB 
8 8 XSAVUSER 4 Save location for caller's I/O area 
Cc 12 XSAVIQPR 4 For caller‘s call list address 
10 16 XPHYSPP 4 Save location for physical 
parent pointer, 
14 20 XWORKPCB 4 Save location for XMAINTs PCB 
18 24 XWORKSAA uy Address of SSA built by DLZDXMTO 
1c 28 XWORKFNC 4 XMAINTs function code for call 
20 32 XDPSDBAD 4 Address of PSDB of indexed segment 
24 36 XDSECLST 4 Secondary list of indexed segment 
28 40 XDRID 8 Indexed segment ID for enqueue 
28 40 XDRBAPTR 4 RBA of indexed segment 
2c Gy XDDMBACB 4 DMB and ACB numbers of 
indexed segment 
30 4g XNRID 8 Indexing segment ID for enqueue 
30 4 8 XNRBAPTR 4 RBA of indexing segment 
34 52 XNDMBACB 4 DMB and ACB numbers of 
indexing segment 
38 (56 XSPSDBAD 4 PSDB of index source segment 
3c 60 XSSECLST 4 Secondary list of index source 
segment 
40 64 XSRBAPTR 4 RBA of index source segment 
44 68 XNPSDBAD 4 Address of PSDB of indexing 
segment 
48 72 XDSDBAD 4 Index target segment SDB address 
uc 76 XSSDBAD 4 Index source segment SDB address 
50 80 XPROT 2 Length of protected data 
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52 82 XRPREFIX 2 
54 84 XSPREFIX 2 
56 86 XNSEGLEN > 
58 88 XNKEYLEN 2 
5C 92 STACK1 4 
60 96 STACK2 4 
64 100 STACK3 4 
68 104 XSAVSTC 1 
69 105 1 
6A 106 XCALLFUN 1 
6B 107 XTSWIT1 1 
6E 110 XWORKPUT 2 


(The rest of this record starts on 


70 112 XWORKUSR 0 
70 112 XWORKDUM 2 
72 114 XWORKSEG 0 
5-146 


Record prefix length 
Segment prefix length 
Length of indexing segment 


Sequence field length of index 
pointer segment 


Return address for first level 


subroutine 


Return address for second level 
‘subroutine 


Return address for third level 
subroutine 


Save status code 
*Reserved* 


Call attributes byte 


Flag Hex 

Name Code Meaning 

ISLOAD 80 Load mode 

ISASRT 40 ASRT call 

ISDLET 20 DLET call 

ISISRT 10 ISRT call 

ISREPL 08 Function is replace 

ISUNLD 02 UNLD call 

Temporary switch 

Flag Hex 

Name Code Meaning 

XNOSUPR 80 No suppression for 
this index 

XOLDSUPR 4O Old segment was 
suppressed 

XPTRONLY 20 PTR to XDS only, no 
CONCAT key 

XISPRIM 10 A primary index 
was found 

XNULLFLD 01 Null value 
Suppression 

XEXITRT 02 Exit routine for 
Suppression 

XDATACHN 04 XNS changed ina 


replace call 
Begin of record for load 
a fullword boundary) 
XMAINTs I/O area for call 
Reserved 


Start of segment 
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72 


73 
74 
78 


114 


115 
116 
120 


XWORKCD 


XWORKDEL 
XWORKPTR 


XWORKKEY 


1 


1 
rt 


VAR 


Segment code 


Flag Hex 
Name Code Meaning 
XNSEGCO1 01 Segment code of 


indexing segement 
Delete byte in indexing segment 
Pointer in indexing segment 


Area for key in indexing segment 


(The SSA for the XMAINT call to the analyzer is created behind the key) 


LIST CONTROL BLOCK 


This record is used by module DLZUSCHO. 


Hex Dec 
1c 28 
1E 30 
20 32 
22 34 
24 36 
28 40 
2C Quy 


Name 


ENTLNGTH 
COMPLOC 


COMPLNG 


NUMENT 
CHAINLOC 
CHBACK 


ENTBLKSZ 


Ln 


2 


4 


Description 


The length, in bytes, of each entry 
in the list 


The offset from the beginning of 
each entry to the key field 


The length of the key field 


The current number of entries in 
the list 


The location of the first of a chain of 
core blocks containing sorted list entries 


The location of the last block in the 
chain 


The size of each core block used for list 
entries (includes the chaining fields). 


This value is calculated as follows: ENTBLKSZ = 16*ENTLNGTH+t8 


30 


48 


LASTLO, 
LASTHI, 
LASTMD, 
ENTLOC 


12 


Work areas used by INSRCH and 
LOCSRCH 


OUTPUT RECORD CONTAINING SEGMENT PREFIX 


This DSECT (IOAREA) defines the format of the unloaded data base records 
used by the HE reorganization unload/reload utilities. 


Hex Dec 
0 0 
1 1 
2 2 
4 4 





Name Ln 
RGUSEGLV 1 
RGUHSDF 1 


RGUHDRLN: 2 


RGUSEGLN 2 


Description 


Segment code for this segment 

HSAM delete flag; always xX‘ 80° 

to denote HD Reorganization Unload 
Utility 

Length of header portion of record 


Length of data portion of record 
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6 6 RGUSEGNM 8 Segment name 


E 14 RGUSEGDF 1 Delete flag of segment 

F 15 RGUPFCTR 4 Counter field of prefix 

13 19 IOTWFOR 4 Logical twin forward pointer 
17 23 IOTWBACK 4 Logical twin backward pointer 
1B 27 IOPAR i! Logical parent pointer 

1F 31 ICOLD 4 Old location of record 

23 35 IOSEG Var Variable-length data field 


OUTPUT TABLE RECORD 


This DSECT (DLZUSTAT) defines the format of the statistics table within 
the unloaded data base for HD reorganization unload/reload utilities. 


Hex Dec Name Ln Description 
0 0 RGUSEGLV 1 Always X‘'00° 
1 1 RGUHSDF 1 X*°80° for first table record and 


checkpoint table record 
X"90° for last table record 


2 2 RGUHDRLN 2 Length 


4 4 RGUSEGLN Var A table containing one entry for 
each segment type. 


Field Description of RGUSEGLN 


Hex Dec Name in Description 
0 0 SEGNAME 8 Segment name 
8 8 SMIMCHLD 4 Maximum immediate children 
Cc 12 SAIMCHLD 4 Average immediate children 
10 16 WKIMCHLD 4 Working entry for above 
14 20 SMSBCHLD 4 Maximum subordinate children 
18 24 SASBCHLD 4 Average subordinate children 
ic 28 WKSBCHLD 4 Working entry for above 
20 32 TSEGTYPE 4 Total segments for this type 
24 36 - SEGLEVEL 1 Segment level 
25 37 SEGPHYCD 1 Segment physical code 
26 38 TABLEND 2 Table end indicator (x'80‘) 
26 38 TSEGLEN 2 Segment length including prefix A 
28 40 STATABSZ Length of each table entry x 
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SHORT SEGMENT TABLE 


This record is used 


Hex Dec 
0 0 
1 1 
2 2 
3 3 
4 4 
6 6 


SORTED LIST BLOCK 


This record is used 


Hex 


0 


Dec 


0 


by module DLZURULO. 
Name Ln Description 
SEGMDSNO 1 Data set number (not used by DLZURULO) 
SEGMCODE 1 Physical segment code 
PARSEGCD 1 Physical code of this segment‘’s parent 
SEGMLEVL 1 Segment hierarchical level 
Unnamed 2 Number of logical children and fields 
(not used by DLZURULO) 
SEGMLENG 2 Segment length, including prefix 
by module DLZUSCHO. 

Name Ln Description 

ENCNT 1 The count minus one of the current number 
of entries in this block (currently, the 
maximum value for count is 16) 

CHAIN 3 The location of the next sorted list 
block in the chain. [In the last block, 
this field contains binary zeros. 

BKCHAIN 4 The location of the preceding sorted list 


ENTRIES Var 


SSA FOR GU CALL BY KEY 


block in the chain. In the first block 
on the chain, this field contains the 
location of the CHAINLOC fieli in the 
list control block. 


Up to 16 full entries in sorted order. 


All blocks are the same size 
regardless of the number of 
entries contained. Unused space 
at the end of a block is not 
zeroed. 


Notes: 
= 


This record is used by module DLZURGUO. 


Hex Dec 
0 0 
8 8 
A 10 
B 11 


Name 


KEYSEGNM 


KEYCODE 


KLEFTPAR 


KEY 


KRITEPAR 


Ln Description 

8 Name of segment to be retrieved 
2 "#C* - command code 

1 ‘("' - left parenthesis 

1-236 key to be retrieved 

2 ‘)"' - right parenthesis 
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SSA FOR GU CALL BY RBA 


This reccrd is used by module DLZURGUO. 


Hex 


arr aatiiasaent, 


0 


iy Ww Pp 


Dec 
0 
8 

10 

11 


15 


Name 
RBASEGNM 
RBACODE 
RLEFTPAR 
RBA 


RRITEPAR 


Ln 


8 


Description 
Name of segment to be retrieved 
"*T*" + command code 

*"(' + left parenthesis 

RBA to be retrieved 


")" + right parenthesis 


SSA FOR THE XMAINT CALL TO THE ANALYZER 


This record is used by module DLZDXMTO. 


Hex 


0 


Dec 
0 
8 

10 


11 


Name 
XSEGNAME 
XCOMMCOD 
XLEFTPAR | 


XKEYVALU 


STATISTICS RECORD 


In 


8 


2 


1 


VAR 


Description 

Name Of index pointer segment 
"*X" ~ command code 

*(° - left parenthesis 


Key value followed by right 
parenthesis °')' 


This record is used by modules DLZURULO and DLZURRLO. 


Hex Dec 
0 0 
1 1 
2 2 
4 4 
C 12 

14 20 

1C¢ 28 


Name Ln 
Unnamed 1 
Unnamed 1 
Unnamed 2 
dunawed 8 
Unnamed 8 
Unnamed 8 
Unnamed Var 


DESCRIPTION OF VARIABLE LENGTH 
AS OUTPUT FOR DLZURULO. 


Hex Dec 


0 
8 


0 


8 
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Name Ln 
SEGNAME 8 
TSEGTYPE 4 


Description 
X"FF" header/statistics record identifier 


Character S 


Number of segment types in data set 
group (16 bytes per segment type) 


Name of the DMB derived from the DBD 
KSDS filename 

ESDS filename 

A 16=byte table entry for each 


segment type in the data base 


LAST FIELD OF STATISTICS RECORD WHEN USED 


Description 


Segment name 


Total number of segments unloaded 
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C 12 SEGLEV 1 
D 13 SEGPCD 1 


E 14 TSEGLN 2 


Segment level 
Segment physical code 


Segment length, including prefix 


DESCRIPTICN OF VARIABLE LENGTH LAST FIELD OF STATISTICS RECORD WHEN USED 


AS INPUT FOR DLZURRLO. 


Hex Dec = Name 
0 0 SEGNAME 
8 8 TOTSEG 
Cc 12 SEGLEV 
D 13 SEGPCD 
E 14 SEGLN 


WORK FILE 1 


This record is used as the 


Hex Dec Name 
0 0 ALENGTH 
2 2 ASPACE 
4 4 ALTYPE 


Ln 


Description 


Segment name 

Total number of segments unloaded 
Segment level 

Segment physical code 


Segment length, including prefix 


input file for DLZURG10. 


Ln 


2 
2 
1 


Description 


Length of work file 1 record 
Two bytes of zeros 


Type of input record 


Flag Hex 

Name Code Meaning 

ATYPEOO 00 Type 00 record 

ATYPEO1 01 Type 01 record 

ATYPEO2 02 Type 02 record 

ATYPE03 03 Type 03 record 

ATYPE10 10 Type 10 record 

ATYPE20 20 Type 20 record 

ATYPE30 30 Type 30 record 

ATYPE4 0 40 Type 40 record 

DL/I Record 

Type Use 

00 Generated once for each use 
of a segment as a logical 
parent 

10 Generated once for each use 
of a segment as a logical 
child. 

20 Generated when a segment used 


aS a logical child contains 
logical twin forward pointers 
and when the logical twin 
chain cannot be resolved by 
uSing the logical child's 
sequence field. 

30 Generated when a segment used 
as a logical child contains 
logical twin backward 
pointers and when the logical 
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14 
15 
sho a 
19 


21 


***FOR TYPE 00 AND 01 RECORDS*** 


97152 


8 

12 
20 
21 
21 


25 


33 


ALFLAG1 


ALFLAG2 


ALFLAG3 


ALEVTTR 
ALPDBNAM 
ALPSEQ 
ALPCKEY 
ALPOADDR 
ALCDBNAM 


ALCSEG 


1 


8 


1 


twin chain cannot be resolved 
by using the logical child's 
sequence field. 


40 Generated once for each time 
a segment is indexed 

Flag 1 

Flag Hex 

Name Code Meaning 

AL1LOAD 80 Set to 1 if ISRT; 
set to 0 if ASRT 

AL1SEQ 4Q Set to 1 if 
sequence field is 
present 

AL1SCAN 20 Set to 1 if 
record produced 
by scan program 
(DLZURGSO) 

ALILPCK 10 Set to 1 if 
logical parent 
concatenated key 
is prsent 

AL1SQUN 08 Sequence field is 
unique 

ALISEQA 04 Set to 1 if root 
sequence field is 
present 

AL1ICONST 02 Constant present 
in key 

AL1ISYMB 01 For type 40 
record; pointer 
is symbolic 

AL1T23 01 Set to 1 if 


logical twin 


pointers 


are to 


be resolved by 
type 20 and 30 


records 


Executable length of sequence field, 


if prese 


nt 


Executable length of indexed field, 
if present, or executable length of 
logical parent concatenated key, if 


present 


Value of LEVTTR after BYLCT 


Data base of logical parent 


Segment code of logical parent 


Logical parent's concatenated key 


Logical parent's old address 


Data base of logical child 


Segment code of logical child 
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a. 


22 34 
26 38 
27 39 
29 41 
2D 45 
(TYPE 01 

2E 46 


ALCFL 


ALT0001 


ALPLSGOF 


ALCCTR 


ALPDCB 


RECORD ENDS HERE) 


ALPSEQA 


***FOR TYPE 02 RECORDS*** 


22 
26 
***FOR 
22 
23 


23 


27 
28 
29 


**#*#FOR TYPE 40. 


8 
C 
14 
14 


15 


15 


34 
38 
TYPE 10, 
34 
35 


35 


39 
40 
41 


8 

12 
20 
20 
21 


21 


ALCOAD 


ALTO2 


20, AND 30 


ALFIL 
ALCSEQ 


ALCM 


ALT123 


ALCDCB 


-ALCSEQA 


RECORDS * *# 
AILCOA 
AIDBNAM 
AIFLDVAL 
AISC 


AISEQ 


AISEGN 


4 Old value of logical child first or 
logical child last pointer 

1 X°00" or X‘01' 

2 Value of logical parent's LEVSEGOF 
after BYLCT 

4 Old value of counter field 

1 DCB NUMBER FOR LP 

1 Sequence field and length for root of 
segment 

4 Logical child old address 

1 X*02° 

RECORDS * ** 

1 X* FF* 

4 Logical child sequence field 

4 If LC has LT pointers and a non- 
unique sequence field and is being 
reloaded, ALCM contains the 
following: 
For Type 10 - LC's old address 
For Type 20 ~- LC‘s old LT forward 
pointer 
For Type 30 - LC's old LT backward 
pointer 
Otherwise, ALCM contains the value of 
LEVSEGOF, with high order bit set to 
one 

1 X°10", or X*°20%, or X*"30° 

1 DCB number for LC 

1 Sequence field and length for root of 
segment 

4 Logical child old address 

8 Index data base name 

1 Indexed field value (variable length) 

1 Index segment's segment code 

1 Index segment's sequence code (if 
second level and present) 

8 Index segment's name (For level 2 


index segments) 
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15 


1D 
25 
26 


2A 


***FOR TYPE 40 


9 
11 


14 


14 


21 
22 
25 
29 


WORK FILE 3 


21 


29 
37 
38 
42 


9 
17 
20 


20 


33 
34 
37 


41 


AIFLDN 


AISDBN 
AISSC 
AILCNA 


AIDATA 


Indexed field name (For level 1 index 
segments) 


Indexed segment‘'s data base name 
Indexed segment’s segment code 
Logical child new address 


Indexed segment data (for source 
fields) | 


RECORD USED AS SSA AND I/O AREA*** 


AISSFN 


AISSAID 


AISFLDV 


AISSEQ 


AXSC 
AXDDIR 
AXLCNA 


AXDATA 


8 
3 


Index segment name or field name 
SSA ID and command code 


Indexed segment's indexed field value 
(variable length) 


Index segment"s sequence field value 
(variable length) 


Segment code of indexed segment 
DDIR address of indexed data base 
Logical child new address 


Index source data 


This record is the output file from DLZURG10O and is used as the input 
file for DLZURGPO. 


Hex 
0 
2 


4 


59+154 


Dec. 


0 
2 
4 


Name 


CLENGTH | 


CSPACE 


CTYPE 


CFLAG1 


Ln 
2 
2 
1 


1 


-CFILPCK 10 


Description 


Length of work file record 
zeros 


Work file record type 


Flag Hex 

Name Code Meaning 

CTYPEO 00 Type 00 record 
CTYPEO1 01 Type 01 record 
CTYPE1 10 Type 10 record 
CTYPE2 20 Type 20 record 
CTYPE3 30 Type 30 record 
CTYPE4 40 Type 40 record 


Origin of record 


Flag Hex 


Name Code Meaning © | 

CF1LOAD 80 Flag On-initial load; 
Flag off-reorganization 
Record produced by scan 


Logical parent con- 
catenated key if present 


CF1SCAN 20 
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F EN 


**#*#FTELDS IN TYPE 0 RECORD*** 


6 6 CLCDBNO 8 
E 14 CLCSEGNO 1 
F 15 CLPSEGNO 1 
10 16 CLCFRST 4 
14 20 CLCDLST 4 
18 24 CLCDCNT G 
1c 28 CLPDBNO 8 


***FTELDS IN TYPE 1 RECORD*** 


6 6 CLPDBN1 8 
E 14 CLPSEGN1 1 
EF 15 CLCSEGN1 1 
10 16 CLTFWD 4 
14 20 CLTBKWD 4 
18 24 CLPNWAD1 u 
1c 28 CLCCBN1 8 
24 36 CDCB 1 
25 37 CFIL 1 
26 38 CLEVTTR 4 
2A 42 CLEVSGOF 2 
2C 4 CLCCNT 4 
30 48 CLSEQ 1 


CF1SEQA 
CF1TOF 


CF1T23 


Logical 
Logical 
Logical 
Logical 
Logical 
Logical 


Logical 


Logical 
Logical 
Logical 
Logical 
Logical 
Logical 


Logical 


04 Set to 1 if root 


sequence field present 


02 Set to 1 if matching 


type 10 record found 


01 Set to 1 if logical 


twin pointer is to 
be resolved by type 
20 and 30 records 


child data base name 
child segment code 
parent segment code 
child first pointer 
child last counter 
child delta counter 


parent data base name 


parent data kase name 
parent segment code 
child segment code 
twin forward pointer 
twin backward pointer 
parent new address 


child data base name 


DCB number 


Contents of LEVTTR after BYLCT 


Contents of LEVSEGOF after BYLCT 
(high order bit of CLEVSGOF is. 
set to 1 if segment is not in HD) 


Old value of counter field 


Root sequence field 
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SECTION 6: DIAGNOSTIC AIDS 


This section contains two tables that cross-reference DL/I messages and 
DL/I status codes with the module(s) that originate then. 


Additional diagnostic information can be found in the DL/I DOS/VS 
Diagnostic Guide, SH24-5002. 
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SYSTEM MESSAGE/MOLULE CROSS REFERENCE 


This table cross-references message numbers (in numeric order) with the 
module(s) that can cause that message to be issued. In addition, if the 
message is described in the module HIPO diagram in Section 2, the HIPO 

figure number is also shown. 


this publication. 


DOS/VS Messages and Codes". 


Message 
Number 


DLZ001I 
DLZ002I 
DLZ0031 
DLZOO4LI 


DLZ005I 
DLZ0061I 
DLZ007I 


DLZ008f 
DLZOO09LI 
DLZ010A 


DLZ0111 
DLZ0121 


DLZ0131 
DLZ014A 


DLZ015I 
DLZ0161I 
DLZ0171I 
DLZ0181 
DLZ019I 
DLZ020I 


DLZ0211 


DLZ0221 
DLZ0231 
DLZO024I 
DLZ025I 
DLZ0261I 
DLZ0271 
DLZ0281 
DLZ0291 
DLZ030A 
DLZ0311 
DLZ032A 


DLZ0331 
DLZO34I 
DLZO40A 
DLZO41T 
DLZ042T 
DLZ043I 
DLZO4aT 
DLZO45I1 
DLZO46I 


EES GREE SIC GR SEED Baas: OES GEES oeeee MOT COS CR Gee See aie ee eee eee GR chee CES wee Se SRE exe Gum GEER auto SE Gee Cee EE GS ACS GR GES oti aueg cum CES Qed) OEE! Qo Eee aes Se Ge ee Se 


Module 


DLZBNUCO 
DLZBNUCO 
DLZDDLEO 
DLZDBHOO 
DLZRDBLO 
DLZDBHO0O 
DLZOLIOO 
DLZDSEHO 
DLZCXMTO 
DLZRRCOO0 
DLZRRCOO 
DLZRRCOO0 
DLZMPIOO 
DLZRRCO0 
DLZMPI0O 
DLZRRCOO 
DLZOLIOO 
DLZRRCOO 
DLZMPIOO 
DLZRRCO0 
DLZDLOCO 
DLZRRCOO0 
DLZRRCOO 
DLZRRCO0 
PLZDLOCO 
DLZRDBLO 
DLZDLOCO 
DLZRDBLO 
DLZDLOCO 
DLZDLOCO 
DLZDLOCO 
DLZDLOCO 
DLZRRCOO 
DLZDLOCO 
DLZDLOCO 
DLZCLI00 
DLZOLIOO 
DLZOLI0O 
DLZOLIOO 


DLZRDBL1 


DLZODP 

DLZOLIO0O 
DLZOLIOO 
DLZOLIO0O 
DLZOLIO0 
DLZOLIOO 
DLZOLI0O0 
DLZOLIOO 
DLZOLIOO 
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Figure 
Number 
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i 


The modules are described in Section 3 of 
The messages are described in Chapter 1 of "“DL/I 


2-3.7, 2-3.9 


2-369 
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Message 
Numker 


Module 


Figure 
Number 
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DLZ047I 
DLZO48I 
DLZO49I 
DLZ050I 
DLZ0511 
DLZ0521 
DLZ0531 
DLZ054I 
DLZ055I 
DLZ056I 
DLZ0571 
DLZ058I1 
DLZO060I 
DLZ061A 
DLZ062I 
DLZ063I 
DLZ064I1 
DLZ065I1 
DLZ0661 
DLZ0671I 
DLZ068I 
DLZ069I 
DLZO70I 
DLZO711I 
DLZ0721 
DLZ0731 
DLZO74I 
DLZ075I 
DLZ076A 
DLZ077I1 
DLZ0781 
DLZ0791 
DLZ0801 
DLZ081I 
DLZ082I 


DLZ0831 
DLZO84I 


DLZ085I 
DLZ0861 
DLZO87A 
DLZ088I 
DLZ0891 
DLZ090I 
DLZ0911 
DLZ0921 
DLZ0931 
DLZO94TI 
DLZ095I 
DLZ096I 
DLZ0971 
DLZ098I1 
DLZ099TI 
DLZ1001 
DLZ1011 
DLZ1021 
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DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLIOO 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLIO0 
DLZOLIOO 
DLZOLI00 
DLZOLI00 
DLZODP 

DLZODP 

DLZOLI00 
DLZODP 

DLZODP 

DLZODP 

DLZODP 

DLZODP 

DLZODP 

DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZRRCOO 
DLZRDBLO 
DLZRDBLO 
DLZRRC00 
DLZRDBLO 
DLZMSTPO 
DLZMPIO0 
DLZBPC00 
DLZMPC00 
DLZMP100 
DLZMSTRO 
DLZEPCO0 
DLZMPCO00 
DLZMP100 
DLZODP01 
DLZMPI00 
DLZMPC00 
DLZMP1IOO 
DLZMPC00 
DLZMP100 
DLZMPI00 
DLZMPI00 
DLZMP100 
DLZMPCO00 
DLZMPCO0 
DLZMPI00 
DLZMPI00 
DLZMSTRO 
DLZMPIOO 
DLZMPI00 
DLZMPIOO 
DLZMSTRO 
DLZMPIOO 
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2-22 
2-21.21 
2-20.1, 
271952, 
2721s 
2-18 
2-20.2, 
2719.4 
2~21.01,% 
2-6.3 
2-21.1 
2-19.7 
2~21.1 
2719.1 
2-21.1 
2-21.2 
2-21.53 
2-21.23 
2-19.2 
2-19.1, 
2-21.41 
Z*2hai0 
2-18 
2-21.3 
27-21. 1 
2221.3 
2-18 
2-21.3 


2-16.7 


2-20.5 | 
2719.4, 2°19.5, .2-19.7, 2-19.8 
2-21.3 
2-24.4 


2-21.3 


2719.8 
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Message 
Numcer 


DLZ1031 
DLZ1041 


DLZ1051 
DLZ1061 
DLZ1081 
DLZ1201 
DLZ260T 
DLZ2611 
DLZ2621 
DLZ2631 
DLZ2641 
CLZ2661 
DLZ267] 


DLZ2681I 
DLZ3011I 


DLZ302I 


DLZ3031 
DLZ3041 
DLZ3051 
DLZ3061 
DLZ3071 


DLZ3081 


DLZ3091 


CDLZ3101 


DLZ3111 
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Module 


DLZEPCO0O 
DLZMPCO00 


DLZBPCO00 
DLZRRCOO 


DLZENUCO 
DLZMPIOO 
DLZQUEFO 
DLZQUEFO 
DLZTRACE 
DLZBNUCO 
DLZODP 

DLZBNUCO 
DLZODP 

DLZRRCOO 
DLZOLI00 
DLZRRCO0 
DLZRDBL1 
DLZRRCOO 
DLZOLI00 
DLZQUEFO 
DLZDLDLEO 
DLZUDMPO0 
DLZURDBO 
DLZURGLO 
DLZURGUO 
DLZURRLO 
DLZUC350 
DLZURULO 
DLZUDMPO 
DLZURULO 
DLZURRLO 
DLZURCCO 
DLZUDMPO 
DLZURULO 
DLZUDMPO 
DLZURULO 
DLZURCCO 
DLZUDMPO 
DLZURDBO 
DLZURULO 
DLZURULO 
DLZURDBO 
DLZUDMPO 
DLZURULO 
DLZUDMPO 
DLZURRLO 
DLZURCCO 
DLZUDMPO 
DLZURULO 
DLZUDMPO 
DLZURULO 
DLZURRLO 
DLZRDBLO 
DLZUDMPO 
DLZURULO 
DLZURRLO 
DLZRDBLO 
DLZURCCO 
DLZURRLO 
DLZURGUO 


ae ee Oe ees een aewem Gere Ce qent SOEES gee Que aueen es cous Gen ewes OE eee ee eee ee cee eee eee awn CUS eee eee Gee we eee eee Oe eee SEES eee Gee eee See eee eee Sees eee coe comes epee comet eee ce eee eee ees ee ees ee ee eet eee 


Figure 
Number 


2-20.5 
271939 
2720.6 


2-4.1 
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2-29 
2-25 
2-30 
2-27.41 
2-25 
2-29 
2725 
2-29 
2-30 


2*=25 
2-29 
2-30 
2-27.1 


2-31 
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Message 
Number 


DLZ3121 
DLZ3131 
DLZ3141 
DLZ315I1 


DLZ3161 


DLZ3171 
DLZ318A 


DLZ3191 


DLZ3201 


DLZ3211 


DLZ3221 
DLZ3231 
DLZ3241 
DLZ325I 
DLZ3261 
DLZ3271 
DLZ3281 
DLZ3301 
DLZ3311 
DLZ332E 
DLZ3331 
DLZ3341 
DLZ3351 
DLZ336I 
CDLZ3371 
DLZ3381 
DLZ3391 
DLZ340TI 
DLZ341I 
DLZ3421 


DLZ3431 
DLZ3451 


DLZ346I 
DLZ3471I 
DLZ348I 


DLZ349I 
DLZ3501I 
CDLZ3511 
-DLZ3521 


Module 


DLZURGLO 
DLZLOGPO 
DLZTPRTO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURGUO 
DLZURGLO 
DLZURDERO 
DLZUDMPO 
DLZURDBO 
DLZURGUO 
DLZURGLO 
DLZURULO 
DLZURGUO 
DLZUDMPO 
DLZURGLO 
DLZURDBO 
DLZURRLO 
DLZURULO 
DLZURGUO 
DLZUDMPO 
DLZURULO 
DLZUDMPO 
DLZURRLO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDEO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZBACKO 
DLZLPCCO 
DLZURCCO 
DLZUCCTO 
DLZURDBO 
DLZURGUO 
DLZUDMPO 
DLZURULO 
DLZURGUO 
DLZURGUO 
DLZURGUO 
DLZURGLO 
DLZURGUO 
DLZUDMPO 
DLZUDMPO 
DLZURGUO 
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Figure 
Number 


2-27.21 


273k 


2-31 
2-31 
2-32 
2-31 


2-31 
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Number 
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DLZ3531 
DLZ3541 
DLZ355I 
DLZ3561I 
DLZ3571 


DLZ3581 
DLZ3601 
DLZ3611 
DLZ3621 
DLZ3631 
DLZ3641 
DLZ3651 
DLZ366I 
DLZ3671 
DLZ3691 


DLZ3701 
DLZ3711 
DLZ3721 


DLZ373I 
DLZ374I1 


DLZ375I 
DLZ3761 
DLZ3771 
DLZ378I 
DLZ379I 
DLZ3801 
DLZ3811I 
DLZ382I 
DLZ3831 
DLZ384I1 
DLZ385I1 
DLZ3871I 
DLZ389I 
DLZ390I 


DLZ391T 


DLZ3921 
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Module 


DLZURRLO 
DLZURGLO 
DLZURGLO 
DLZURRLO 
DLZURULO 
DLZUDMPO 
DLZURULO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUC150 
DLZURGLO 
DLZUC1i50 
DLZURCCO 
DLZLPCCO 
DLZBACKO 
DLZUCCTO 
DLZUC350 
DLZUC150 
DLZUC350 
DLZUC350 
DLZURGLO 
DLZURGUO 
DLZURGUO 
DLZURGLO 
DLZURGUO 
DLZURGLO 
DLZURGUO 
DLZURGLO 
DLZURGUO 
DLZURGLO 
DLZURULO 
DLZURULO 
DLZUCUMO 
DLZUCUMO 
DLZURGLO 
DLZURGLO 
DLZURRLO 
DLZUC150 
DLZLOGPO 
DLZUDMPO 
DLZURDBO 
DLZURULO 
DLZURRLO 
DLZBACKO 
DLZUC150 
DLZUC350 
DLZURPRO 
DLZURGSO 
DLZURG10 
DLZURGPO 
DLZUCCTO 
DLZTPRTO 
DLZURULO 
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Figure 
Number 


2-32 
2+32 


2-32 


2~31 
2-32 


2731 


2732 
2-31 
2-32 
2-31 
2732 
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Number 


DLZ393I 
DLZ394I1 


DLZ3951 
DLZ396I 
DLZ3971 
DLZ398I1 
DLZ399I 
DLZ400I 
DLZ401I 


DLZ402I 


DLZ4O4I1 


DLZ405I 


DLZ406I 


DLZ4071I 


DLZ408I1 
DLZ409I 
DLZ4101 
CLZ4111 
DLZ4121 
DLZ4131 
DLZ4141 


DLZ4151 


DLZ4161 
DLZ4171 
DLZ4181 
DLZ4191 
DLZ420I 
DLZ4211 
DLZ422T 
DLZ4231 
DLZ424T 
DLZ425I 
DLZ4 261 
CDLZ4271 
DLZ428I1 
DLZ4291 
DLZ4301 
DLZ4311 
DLZ4321 
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DLZURGUO 
DLZURRLO 
DLZURRLO 
DLZURRLO 
DLZURDBO 
DLZBACKO 
DLZRDBCO 
DLZRDBCO 
DLZRDBCO 
DLZRDBCO 
DLZURGUO 
DLZBACKO 
DLZLPCCO 
DLZUCCTO 
DLZBACKO 
DLZURDBO 
DLZUC150 
DLZBACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 
DLZBACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 
DLZBACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 
DLZLPCCO 
DLZTPRTO 
DLZURCCO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 
DLZURCCO 
DLZTPRTO 
DLZLPCCO 
DLZURCCO 
DLZLPCCO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 


DLZLOGPO ~ 


DLZLOGPO 
DLZLOGPO 
DLZLPCCO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 
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Number 


DLZ4331 
DLZ434I 
DLZ440I 
DLZ441I 
DLZ442T 
DLZ4431 
DLZ44aTt 
DLZ445I 
DLZ4761 
DLZ570I 
DLZ5711 
DLZ5721 


DLZ5731 


DLZ5831 
DLZ584I1 
DLZ585I1 
DLZ5871 
DLZ588I1 
DLZ589I 
DLZ77 21 
DLZ796I 
DLZ797I 
DLZ798I 


DLZ799I 


DLZ800I 
DLZ8011 
DLZ8021 
DLZ8031 
DLZ804I 
DLZ806I 


DLZ8071I 
DLZ8081 
DLZ830I 


DLZ8311 
DLZ8411 
DLZ844T 
DLZ845I 
DLZ8471I 
DLZ848I1 
DLZ850I 
DLZ8551 
DLZ860I1 


DLZ8611 
DLZ862I 
DLZ863I 
DLZ864I 
DLZ868I 
DLZ88 81 
DLZ894I 


DLZ901I 


6-8 


| 
| 
| 
| 
| 
| 
| 
[ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


f. 


hee: 


Module 


DLZLPCCO 
DLZLPCCO 


DLZTPRTO © 


DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZDLAOO 


vt DLZDLBL3 


 DLZUACBO 


DLZDLBLO 
DLZDLBL1 
DLZDLBLO 
DLZDLBL1 
DLZUACBO 
DLZUACBO 
DLZUACBO 
DLZUACBO 
DLZUACBO 
DLZUACBO 
DLZDXMTO 
DLZDLDOO 
DLZCDLEO 
DLZDLRGO 
DLZDLRDO 


DLZDLDOO 


DLZCPY10 
DLZDLROO 
DLZDLROO 
DLZDLDOO 
DLZCDLDOO 
DLZDLDOO 
DLZDLDOO 
DLZCPY10 
DLZDLDOO 
DLZDLDOO 
DLZDHDOO 
DLZGGSP0 
DLZDHDSO 
DLZDBHOO 
DLZDBHO2 
DLZDBHO00 
DLZDBHOO 
DLZDBHO0O0 
DLZDDLEO 
DLZDDLEO 
DLZDDLEO 
DLZDXMTO 
DLZCDLEO 
DLZDDLEO 
DLZDDLEO 
DLZDDLEO 
DLZDXMTO 
DLZBACKO 
DLZBACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 
DLZDLBL2 
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DLZ902I 
DLZ9031 
DLZ904TI 
DLZ905I 


DLZ906I1 
DLZ9071 
DLZ9081 
DLZ909I 
DLZ9101 


DLZ9111 
DLZ912I 
DLZ9131 
DLZ9141 
DLZ9151 
DLZ916I1 
DLZ9171 
DLZ9181I 
DLZ9191 
DLZ920I 
DLZ9211 
DLZ922I 
DLZ9231 
DLZ9241 
DLZ925I1 
DLZ9261 


DLZ9271I 
DLZ9281 
DLZ929T 


DLZ9311 
DLZ9321 
DLZ9331 
CDLZ9341 
DLZ935I 
DLZ936I1 
DLZ9371 
DLZ9381 
DLZ939I 
DLZ940TI 
DLZ941T 
DLZ942T1 
DLZ943I 
DLZI4G4T 
DLZ945I1 
DLZ9461 
DLZ9471I 
DLZ948T1 
DLZ949T 
DLZ9521 


DLZ9531 


DLZ954I 
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Module 


DLZDLBL2 
DLZDLBL2 
DLZDLELO 
DLZDLBLO 
DLZDLEL1 
DLZDLBL2 
DLZDLBL3 
DLZDLBLO 
DLZDLBL3 
DLZDLBL3 
DLZDLBL2 
DLZDLBLO 
DLZDLBL1 
DLZDLBL2 
DLZDLBL1 
DLZDLBL1 
DLZDLBL2 
DLZDLBL1 
DLZDLBL1 
DLZDLBL1 
DLZDLBL2 
DLZDLBL2 
DLZDLBL1 
DLZDLBLO 
DLZDLBL1 
DLZDLBL1 
DLZDLBL1 
DLZDLBL1 
DLZDLBLO 
DLZDLBL1 
DLZDLBL2 
DLZDLBL3 
DLZDLBL1 
DLZDLBL1 
DLZDLBLO 
DLZDLBL1 
DLZDLBL1 
DLZDLBL1 
CLZDLBL3 
DLZDLBL2 
DLZDLBL2 
DLZDLBL1 
DLZDLBL1 
DLZDLBL2 
DLZDLBL1 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
CLZDLELO 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
DLZURPRO 
DLZURGSO 
DLZURGPO 
DLZURPRO 
DLZURGSO 
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DLZ9551 


DLZ9561 


DLZ9571I 
DLZ958I 
DLZ959I 


DLZ960I 
DLZ9611I 


DLZ9621 
DLZ9631 
DLZ964I 
DLZ965I 
DLZ9661 


DLZ9671 
DLZ968I 


DLZ969T 


DLZ970I 
DLZ9711I 
DLZ9721 
DLZ9731 
DLZ974I 
DLZ975I 
DLZ9761 
DLZ9771 
DLZ9781 
DLZ9791 
DLZ980I 
DLZ9811I 
DLZ98 21 


DLZ9831 
DLZ984I 


DLZ985I 
DLZ989I 
DLZ990I 


DLZ991T 
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Module 


DLZURG10 
DLZURGPO 
DLZURG10 
DLZURGPO 
DLZURPRO 
DLZURGSO 
DLZURGPO 
DLZURGSO 
DLZURG10 
DLZURGSO 
CDLZURGPO 
DLZURGSO 
DLZURGPO 
DLZURGPO 
DLZURPRO 
DLZURGSO 
DLZURG10 
DLZURPRO 
DLZURPRO 
DLZURPRO 
DLZURPRO 
DLZURPRO 
DLZURGSO 
DLZURG10 
DLZURGPO 
DLZURGSO 
DLZURGSO 
DLZURPRO 
DLZURG1O 
DLZURGPO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURPRO 
DLZURG10 
DLZURG10 
DLZURG10 
DLZURG10 
DLZURG10 
DLZURG10 
DLZURGPO 
DLZURGPO 
DLZURPRO 
DLZURGSO 
DLZURG10 
DLZURPRO 
DLZURG10 
DLZURGSO 
DLZURGPO 
DLZURG10 
DLZURPRO 


Figure 


Number 


2~36 
2~36.2, 


2-34 
2-39 


2-35 
2-36 
2735 


2-34 
2-34 
2-34 
2-34 
2-34 
2-35 
2-36 


2735 


2-36 


2-35 
2235 
2-35 


2-35 
2-34 
2-36.42 
2-36.22 
2-36.22 


2-36.24 


2736.2, 2-36.4 


2-36.4 
2-36 


2-34 
2735 
2-36 
2-34 
2-36.42 


Licensed Material ~- Property of IBM 





DL/I_ STATUS CODES/MODULE CROSS REFERENCE 


This table cross-references DL/I status codes (in alphabetic order) with 
the module(s) that can cause that status code to be set. The modules 


are descriked in Section 3 of this publication. 


The status codes are 


described in Chapter 6 of "DL/I DOS/VS Messages and Codes". 


Status Code 


Module 


{ 
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| 
{ 
1 
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| 
{ 
! 
1 
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t 
! 
! 
{ 
! 
! 
' 
! 
( 
{ 
| 
! 
{ 
{ 
! 
{ 
t 
' 
{ 
{ 
{ 
{ 
{ 
i 
t 
! 
{ 
{ 
! 
! 
! 
! 
t 
{ 
' 
! 
{ 
{ 
{ 
| 
1 
i 
! 
! 
' 
! 
' 
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DLZDLA00 
DLZDLA0O 
DLZDLAOO, 
DLZDLA0O 
DLZDLA00, 
DLZDLA0O 
DLZDLAOO, 
DLZDLAOO, 
DLZDLDOO, 
DLZCPY10 
DLZCPY10 
DLZCPY10 
DLZCPY10 
DLZCPY10 
DLZDLDOO 
DLZDLA00 
DLZDLDOO 
DLZDLROO 
DLZDLROO 
DLZDLROO 
DLZDLROO 
DLZDLROO 
DLZDLROO, 
DLZDDLEO 
DLZCPY10 
DLZCPY10 
DLZCPY10 
DLZCPY10 
DLZCPY10 
DLZDLAOO, 
DLZDLAO00 
DLZDLA0O 
DLZDLA00 
DLZDXMTO 
DLZDXMTO 
DLZDXMTO 
DLZDXMTO 
DLZDLDOO 
DLZDLA00 
DLZDLAO1 
DLZDLA0O 


DLZODP 
DLZDLDOO 


DLZDLROO 
DLZDLDOO 


DLZDLROO, DLZDDLEO, 


DLZDDLEO 


DLZDDLEO 


DLZCPY10 
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SECTION 7: APPENDIXES 


This section consists of the following appendixes: 
Appendix A: Low-Level Code/Continuity Checking in DL/I. 
Appendix B: DBD Generation. 

Appendix C: PSB Generation. 


Appendix D: DL/I Macros 
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APPENDIX A: LOW-LEVEL CODE/CONTINUITY CHECK IN Di/I 


FLOW OF CONTROL 


Low Level Code/Continuity Check (LLC/CC) in DL/I is used as a subroutine 
Of a user-written application program that runs under DOS/VS. Control 
passes to and from the subroutine using standard calls. 


LLC/CC in DL/I is a single control section (CSECT) which is structured 
into seven modules (see Figure 7-1). The entry modules 000 for update 
and 001 for initial generation of low-level codes have multiple entry 
points for call statements issued by the user-written application 
program, that is, a separate entry point for each source language that 
is supported. Ali modules have only a single exit point, all lower 
level modules 002 through 006 are only entered at one point. 


All modules assemble and issue DL/I calls. The entry point for DL/I 
depends on the source language that is identified by the entry point 
into LLC/CC in DL/I. The language bits in the LLC/CC execution control 
block (LECB) identify the source language of the application program. 

If an unexpected status code of DL/I is reported in the appropriate PCB, 
the error bits in the LECB are turned on, and control is routed back 
directly to the entry modules 000 or 001. 


LLC/CC in DL/I consists of the following modules; 


e Module 000 is the entry module for maintenance of low level codes. 
It passes control to module 002 for execution. 


e Module 001 is the entry module for initial generation of low level 
codes. It passes control to module 002 for execution. 


e Module 002 is the common mainline control module. It follows down a 
hierarchical path of a product structure. For actual explosion, 
control is passed to module 003. If a particular hierarchical path 
is exhausted, module 004 is executed to process a parallel path on 
the same hierarchical level. If all parts on the same level are 
processed, module 005 steps up one level to identify a parallel path 
on the higher level. If the original starting level is reached, the 
complete structure is processed, and control is returmed to module 
000 or 001. Module 002 also detects loops and executes continuity 
check recovery in module 006. 


e Module 003 explodes a particular part into all its components. 
Control is passed from and to module 002. 


e Module 004 removes the part which has previously been processed from 
the hierarchical path thus opening a new hierarchical path via the 
next parent part on the same level. Control is passed from and to 
module 002. 


e Module 005 steps up one level and removes the higher level part from 
the hierarchical path to open another path. Control is passed from 
and to module 002. If module 002 is not able to follow a new path on 
this level, module 005 may be executed repetitively. 


e Module 006 handles restoring of 01d low-level codes if a continuity 
check is detected. Control is passed to and from module 002. 


7-2 Licensed Material - Property of IBM 


For a more detailed description, see the 


of Appendix A. 


Entry points 


DLZNNCA 000 
DLZNNCC 3 

f 
DLZNNCP Maintenance o 


Low Level Codes 





Entry points 


DLZNNGA —| go 
DLZNNGC Initial Generation 
DLZNNGP 


of Low Level Codes 





002 
Vertical Explosion 
Control 


004 


003 
Next parent on 


i f 
Explosion of a Part same Level 





Figure 7-1 Structure of LLC/CC 


MODIFICATION AIDS 


EXTERNAL NAMES 





005 
Next parent on 


006 


higher Level 


in DL/I 


relevent HIPO charts at the end 


Continuity Error 
Handler 





LLC/CC in DL/I uses external names in the directories and libraries of 


DOS/VS. 
are used. 
names. 


The following table presents a list of all external names which 
The user should obtain a DSERV listing to avoid duplicate 


| SSL 


| RL | 


| BD RD ID EE ED GD AS I A ED AD NO ND ED ND ED ED ED Ee a 0 ED SED ED SEP ED END AED EP ED AND CD AD POE ED OD OND EE AED a | 


Type of program 
1A.books 


ED ED RD ED ED AND EP <P NS 0D tn et ED > ED ED ee EP EN OE 88 SD ee > A ee > ee ee ee A ee en ee a ee ee ee ee ce ee ee ee I ec ee ee ee ee ce ee eee ee 


‘ 
| 
| 
| 
| 
| 
JExecution program |DLZNN | 
| 
| 
l 
| 
| 


J Initialization DLZNNICT 
jprogram for the 


|control data base | | 


| 
| 
| | 
| 
| | 
| 
| | 
| 


| 
|) E. books 


DLZNNICT 


]Directory|Entry | 
Jentries |points | 
DLZNN | DLZNN* | DLZNNCA* 
| DLZNNCC# 
| DLZNNCP* 
| DLZNNEC* 
| DLZNNGA* 
| DLZNNGC* 
| DLZNNGP* 


CIL 


DLZNNICT 


* May be modified by the user during customization. 
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LLC/CC EXECUTION CONTROL BLOCK (LECB) 


The LECB of LLC/CC in DL/I is the focal point for all information 
related to actual Operation of the execution program. It consists of 16 
bytes which are subdivided into 4 fullwords. An entry point DLZNNEC is 
provided so that an application program may access the contents of the 
LECB.j 


The LECB contains the following information: 


1. Identification portion (fullword 0): 
Bytes O through 3: C'LECB'=X'D3C5C3C2' 
This identifier facilitates location of the LECB in a main storage 
dump. 


2. Execution control portion (fullword 1): 
Byte 4; im 


e Bits 0 through 3: Run type bits 
Bit 0 and bit 1: Reserved 
Bit 2: 1 if IG run 
Bit 3: 1 if U run 


e Bits 4 through 7: Not used 
Byte 5: 


e Bits 0 through 3: Language bits 
Bit 0: Reserved 
Bit 1: 1 if Assembler 
Bit 2: 1 if COBOL 
Bit 3: 1 if PL/I 


e Bits 4 through 7: Not used 
Byte 6: Status byte 


e Bits 0 through 3: Completion bits (mutually exclusive) 
Bit 0: 1 if not completed, abnormal condition 
encountered. 
Bit 1: 1 if component requires no change (U run only) 
Bit 2: 1 if part is already processed (IG run only) 
Bit 3: 1 if part has no components 
(IG run only, and only if bit 2 is off) 


Besides its function as an indicator, bit 3 also 
serves to transfer information whether a parti- 
cular part in an explosion sequence has component 
parts, Bit 3 is turned off in module 002 before 
entering module 003. If no component parts 

are found during the execution of module 003, 

the bit is turned on. Upon return to module 

002, the bit is tested to decide whether 

module 004 must be called. 


e Bits 4 through 7: Error bits, extending completion bit 0. 
A Single error bit does not reflect a particular error 
condition, therefore, the hexadecimal representation of 
the total bit pattern in the status byte has to be analyzed. 


X*80' Parent part not found 

X* 81° Component part not found (U run only) 
Xx" 848 Continuity check for parent part 

X"85" Continuity check for any component part 
X" 87" Input parameter in error 
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Xx" 88" Unexpected DL/I status code for parts data base 
X° 8A* Unexpected DL/I status code for control data base 
x" 8c* Both error conditions X'84" and X‘88' 

Xx" 8D" Both error conditions X'85° and x'88' 

X" 8E* Both error conditions X‘'84" and x‘'8A‘ 

X* 8F* Both error conditions X'85* and X*8A‘ 


Byte 7: Not used 
3. Parameter list portion (fullword 2): 


Bytes 8 through 11: Address constant pointing to the parameter list 
which has been previously submitted to DL/I by LLC/cCC in DL/I. 
Contents is defined hexadecimal zeros prior to the first run through 
LLC/CC in DL/I. The address constant is not affected by insertion 
of locators if the application program is written in PL/I. 


4 PCB save area portion (fullword 3): 


Bytes 12 through 15; Address constant pointing to a 64-byte save 
area for a PCB. This save area is initialized to blanks (X'40'), 
however, in case Of an unexpected DL/I status code, the related PCB 
is saved into this save area. The PCB is stored left justified. If 
the length of the PCB exceeds 64 bytes, the exceeding data is 
truncated. 


The contents of the status bytes is externally represented by the return 
codes of LLC/CC in DLAI. 


IG stands for “initial generation of low level codes", U stands for 
“update of low level codes". 


The LECB is located at the very end of the code of LLC/CC in DL/I. 
Therefore, the last byte of LLC/CC in DL/I may be addressed DLZNNEC+15. 


LANGUAGE CONSIDERATIONS 


During PSB generation, the source language of application programs using 
DL/I facilities is defined in the PSBGEN statements. While COBOL is 
handled like Assembler, the PCB has a different layout if PL/I is 
specified. Therefore, LLC/CC in DL/I has to use different entry points 
into DL/I depending on the source language of the invoking user-written 
application program. 


The entry routines of the execution program of LLC/CC in DL/I offer 
different entry points. The x identifies initial generation mode (G) or 
update mode (C). Six different entry points are availakle for transfer 
of control: 


e DLZNNxA and DLZNNxC are the entry points for application programs 
written in Assembler or COBOL, respectively. No special processing 
is required. 


e DLZNNxP are the entry points for application programs written in the 
PL/I Optimizer language. Upon entry, the address constants in the 
parameter list pointing to the locators of the parameters transmitted 
are replaced by the addresses which are stored in the respective 
locators. ; 


For each source language, the appropriate language bit in the LLC/CC 
execution control block (LECB) is set upon entry. 
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When a DL/I call is issued, the language bits are tested to specify the 
right entry point in DL/I: ASMTDLI, CBLTDLI, or PLITDLI. If the source 
language is PL/I, the parameter list is encoded to transfer address 
constants pointing to locators rather than pointing directly to the 
parameters. | 


SAVE AREAS 


LLC/CC in DL/I contains a set of save areas which facilitate tracing 
main storage dumps. The most important save areas are: 


e Standard save area, addressed by register 13. Symbolic name is SAVE. 


e Return addresses for subroutines, that is, contents of register 14. 

| Symbolic names are CALLSV, PARMJUSV, INSRSAVE, SETUPSV, MOO2SV 
through MOO6SV. Save areas MOO2SV through MOO6SV are reset to 
hexadecimal zeros when the respective modules M002 through M006 are 
left again. 


e Save area for the contents of register 1 when entering LLC/CC in 
DL/I, that is, address of the parameter list submitted from the 
application program. Symbolic name is R1SAVE. 


e Save area for the leftmost 240 bytes of a PCB if an unexpected DL/I 


status code is encountered. Symbolic name is PCBSAVE. The address 
Of PCBSAVE is also available in fullword 3 of the LECB. 


REGISTER USAGE 


RO: Work register 

R1: Work register, address of parameter 
lists during parameter transfer 

R2: Address of parameter list when preparing 
parameter transfer 

R5: Work register 

R63: Address of PCB for parts data base 

R73: Address of PCB for control data base 

R8; Base register | 

R9: Second base register 


R12: Reserved 

R13: Address of register save area 
R14: Standard return address 

R15: Standard linkage register 


HIPO DIAGRAMS FOR LLC/CC 


The following HIPO diagrams describe the seven modules (000-006) of LLC. 
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Processing 
This module is entered from an 
application program via CALL. 
fo] Obtain and adjust input 
-——y/ 
data. 
fo2] Read parent and component 
part. if not found, go to 
step 9. 
am Increment the LLC of the -——~—--~--~--——--—/\ 
| ~ parent part by 1 to obtain | eae 
the initial LLC. Set 
| actual LLC to initial LLC. 
if the actual LLC is not 
higher than the LIC of the 
| component part, no 
| processing is required and 
| control is passed to step 
| 9. 
ies Insert root segment LLCTL ~-—---—-—---,-—- = 
| with key = X to start the | oe 
{ control data base. 
| 
ic Insert dependent segments ---——~---- + | 
| into the control data base 
| for parent part and for 
| component part. 
| 
| | 


Ref Notes 
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{ | ate. “ein © lente tee Aa OO * ae eee ee ——J CONTROL DB 
; with key composed of | | 
| | packed zeros, i.e., actual | { 
| | LLC plus part key. | | 
| | | | | 
| 
| ! { | 
! { | | 
| i | | 
1 | | 
j { | { 
| | | | 
| | | | 
ee Fete Me aan eerie cy es ee Se a eR ae SIRE aA SES ae 
001 - INITIAL GENERATION OF LOW - LEVEL CODES ; HIPOMAT 1.1 Diagram - 3.1.2-01 
mmm a mR a ea SBS REID ET RR ER A aA ER EAD, | ee ee en eee ee SS Ss eT = pre ee ae ieee re 
4 l (| ae | 
Notes | Routinej Label i Ref i Notes Routine] Label Ref 
{----~--——-—— —————— ea | ————- ———- |---| -- | —- - - --- - -— - - - - 9 nn ee J en nnn (ne | 
Pare! : : . { ! | a 
fea The calling application progran pPECHNee | | | 
! has three entry points for diane ft | { 
Assembler, COBOL or PL/I. A | {OLPERGE | \| | 
i parameter list consisting of 5 | {| 
{ pointers identifies 5 fields, 3 | | { 1| | 
| deat | | { 1| 
of them containing input data, 2 i} | 
of them expecting output data. | H i | | 
| poo ae | 
| 
1/04] A bit is set in the LECB to H lLecpswoc| i | | 
ese) nce | | | 14 | | 
| indicate that no component part | i | 
| exists. { { i 
| | | i 
| ee fo 
| | | 
! ! ! | i \ | 
] | { | {1 
t ! | | | 
| { | | | 
| | | | | 
| ; | | 
| 1 
| | { | 
! | i 4 | 
| i 
| | ! | | 
| | | 
! | | ] 
| a ee ae! 
| r | | qt | 
| | | 
] | | Ii 
{ | | | 11 ! 
| | { | 
' | 
! { | 
t | | 
| | 
| | { | 
ac ee ee ————— coerce cre are een ar oomenn ncaa emeeene meneame |, ce aera me ae me a re a ee ee er ene Se ee mem 
001 - INITIAL GENERATION OF LOW - LEVEL CODES HEPOMAT 1.1 Diagram - 3.1.2-€1 


Licensed Material - Property of IBM 7-9 


Seay 





Naa 
IO 


Cc 


CHART 
PAGE 














LLL LE LT LL TT LD I I TT LL OE TT LS a CE LTT LOLI OT LOL TT A SA eS a A UEC agp emcee CN} Pn eg ar a I cS SIT SO SOS SHS A Oe TY IT NS ED OS TE Se CI a ETS ET cr SL TT na 
! {o | | 
{ it iow ! 
Saas to | 
Ag bod 
fie { one apnea err St ae get, te A A eG LS EY SO ENE SUE C-TYPE eu SE ce RASS A Se ES TY CNY” SEE SAA RNS MNS ENTREE Cane 
i. 1 
t4 ' i ! 
1 [tm | ‘ 
| is. 12 ! 
' ae ! g 
ee wo | 
| PON da eo ~e | | 
| Poy ie Els 1g | 
/ 190 ei fe | & 
| . . 2 & 1m 19 | 1O | | 
N 74 os fo) Dilmin {Q ! ! 
= Vo meee is) (oo eo ie } | | 
Q, | | 
+) 
oN aN H | 
7 i! i ! 
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| {1 I | H 
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| - : Oe ! 
se g 3 | 2.4 | 
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or | & praia oo O ae ee | emer Ryne entree ena een een nN See En ee oe ae ae re ne eral ee en nee EI 
5 ee oe ne a | fo T¢ | 
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g | isl ye 3 | [| Las | 
TS ca ae a oe ges Ts — SURE ee 2 ee San at ET et era oR RT PN eine LE Pe DN Cee NC eT | 
Pig beer ere ere ce me sr cmt ee ee ce Oe SO A re te eS ee SS ce re 
{ @ 4 
1! s | | 
J wd | 
wn {+ | j 
ica) f 3 | ! 
a 1 0 | | 
° [ o& 
4 ! { | 
fa I I oa) ! 
is | oR > | 
anh me aie Rae Oe eee R eR ERE SO Sree ee Oe ON ae mee RS i 2g | 
ac ee eee Me RS a | 
I | ss t ! _ ~ 5 ! 
| 13 i; | Bus | 
| 1é 1 eo | 
| jb | jae | 
! | UL BBS | 
| le [| | Bae | 
{ J< ! oo @ 3 cA { 
| ie | 1 £3 © | 
| ie | [eee | 
! je | | Se | 
J | j al 6 
{ le j | = » te | 
| [eH ! ba WH uo I 
Je ! [2 & al 
is | [e823 | 
=z 
[os 1 )W | wm we «cow { 
| @ ! 
a Gece | 
A | fe } z 110! | 
= | k=) I [| bd { 
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: PAGE 1 OF 
Input Processing Output 
i a Sts ea Pp Ce a ee Poe ee ee eg .’ ee ee ne ee SS ee en ee ee ee ee te ee ee ee ee 
| | 
| 
| | 
( | | 
| 
LLC os 
| en pa [9] The actual low-level code 
[a AC TORE No | ea Eee 
{ Vata | { { is used to identify the | 
INITIAL 
dtc | | | next part to be processed. 
| | {I | A segment PARTBEXP is read 
ri — with key egual or greater | 
| i\ / | | to LLC plus hex zeros. | 
| | Shoe 2 e/ | 
\ / : 
pete ote ' | [53 If no segment PARTBEXP is 
| CONTROL DB | found , the actual LLC is | 
| | exhausted. Control] is 
| | passed to module C05. 
! 
fis SP RaaaN Soo cca cas 
{ | | < peel >f005 | 
| /A---- 
| j ~° °* NEXT PARENT ON | 
{ { | | HIGHER pen Eee 3.3] | 
| | 
| — 
{ | | Upon return from 005, the 
| actual LLC is tested. If { 
| it is higher than the | 
| | initial LLC, control is 
| | { passed to step 1, else | 
{ . : 
{ | processing is completed | | 
and control is passed to | | 
| 
{ | 1 step 8. { { 
| | | | 
| { | 
{ | | | 
| | | 
| | | 
! | | 
{ | | { 
| | { | 
| { | 
! | | 
| | | | 
| | 
i | 
W oclenmss gis ee sas feel en else ere ere eae eee AEE AC oe eee oy oa et et 
002 - VERTICAL EXPLOSION CONTROL HIPOMAT 1.1 Diagram - 3.1.3-01 
i SS i ell 4 
Notes | Reve Label Ref Notes Routine| Latel Ref 
(Ree ean CaN (GEE REE Ee \\— aa ae aaa (aa Ra Trai 
{or Vertical explosion control is { PART BREE | | 
| performed by means of PARTBEXP | it 
{ seqnents. Each time a new | { | 1] 
component part is encountered | | | i 
H with a low-level code which | | (I 
needs replacement, a PARTBEXP | i! 
! seqment - key = LLC + part key - | 1 | 1] | 
! is created. When qoing down a | tt ! 
product-structure tree, this | tI | 
step of LLC/CC in DL/I | | {| | ; 
/ identifies a new component part | ! lI 
| to become a parent part within | \ 
\ the recursive process of | | \ 
' explosion. Explosion proceeds on | 
a FIFO basis. {| 
| \ 11 
| | } 
{02} During previous explosions, no | | {| \ 
component part was found | {| | 
requiring the replacement of its | | | | 
: current low-level code, or no { { | | 
! component part was found at all. | | li 
{ Therefore, no segment PARTBEXP | | li | | 
was inserted. | | 
| | | { 
' | | 
(foal The initial low-level code was \ | | if 
tous ; ; : | i { {| 
| established either in module 000 | 
i or in module 001, resp. \ 
pot | 
| 
a [re eS eee | eee ae = 
002 - VERTICAL EXPLOSION CONTROL . aS HI POMAT 1.1 Diagram - 3.1.3-01 
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Input Processing Out put 
r ee ee eR ee ee EN ee eae DS aaa a a a a a a mae? | See ee a ee ee ET ae et eg ee ee ee eee, 
1 | { | | 
! { { 
| | | | 
] ! | 
| | | ! | 
| | | 
| | {r-—-4 . | | PART 
| a rN pi 4] If a segment is found,  -—---~~-----—-—~ aps actuaL 
/ Ne ee) | 2 aS Cae ~~---~--------4 / ACTUAL 
{ H Pi | read the root segment of | | Uo ae aor ee nem | 
| \ | 
1 Ce ee /| | ! the part. | 
{ \ f | | | 
| Pee aired ° | | | | Le 
| | [05] Increment the actual LLC —---~~—~-+------4\ Jo p---—------- 
| PARTS DB | j t—— ; -~-—-——----—----, /| factuaL 
| | by 1 to post into the ———— 
| | components of the new | 
| 
\ j | part. | | 
| | | | 
| | | 
1 | | [06] Perform continuity check ---—-—---—-— =) Sl eset 
| | |¢-—4 Saecwcnesy |= "7 J \ 
! | | and go to step 9. If the | | nN ) 
! | | check fails, restore old 1 | j a -/| | 

| ; 
| { LLC status in 006. | | \ / | 
} { e “iin ins ee Sm ms s 

| 

| | Thm FN perro rn rrr | | j CONTROL DB | 
! | peat ee i 
| | j °° {ERROR RECOVERY ; | OUTEUT DATA 
{ | { | HANDLER i [aN eee 
| { 3.1.3. -4) | aay / LOOP KEY 
| | j [ERROR INFO| | 
! | | } bon rer md 
| | |[07 Upon return from 006, | 
1 { control is passed tc step 
| | | | 
{ | | 12. ] 
| | | ! 
| | ! { 
| | { | 
! ! ! | 
| { | | | | 
| | |! | 
| | | | 
| 
| | ! | 
| | | | | 
{ | | | 
{ I { | 
{ | | | } 
| | { |. 
| | ] | | 
| | | | | 
| | j 
| | { | 
| { { 
| | 
pee oa ee oe Ee ee ne TA Piss eet ee ee Des oe a ee 
002 ~- VERTICAL EXPLOSION CONTROL HIPOMAT 1.1 Diagram - 3.1.3-02 
Deca © Re eee Bie ey HL dee fe ee ee nr ieee Tt 
Notes | Routine] Label | Ref {| Notes Routine! Lakel Ref | 
| mae ne ee ener teem me meee emma f eneamemne es ce mee --—--— |---| |__-___--____-------_--------------— Se | 
| ro P Z ‘ tt | 
reed The continuity check 1S alain I | 
; performed using the segment type | He | | 
PARTBEXP. Each time a new part | | } | 
is becoming exploded, a seqment | | i | 
is inserted which only consists | | \| | H 
of the part key preceded by 2 | | iH | ( 
| bytes hexa zeros. If a part 1 | He | | 
occurs twice in a particular i 
hierarchical path, DL/I will | | i | | { 
| reject the request for insertion i | 
| 
| because a seqment with same key ! | rf | | | 
! is already existing. LLC/CC in | {| | | 
DL/I tests this condition and | | | I | | 
siqnals continuity check. | i | | 
| Insertion is processed here. | | | \| | 
However if in updating mode, ! 
LLC/CC in DL/I inserts a iI { | 
' PARTBEXP segment. of this type 4 | 
| for the part identified by PARM3 | { { \ 
already in 000, step 5. | | Ht 
| ! | | 11 { 
| | | | 1] 
| | | | It | 
{ ! { | 1 
1 j | | }] 
| | | | j 
| | ! { | | 
| ne ae ce 
| a ee ; | 
j | | | 1] 
| | I | 
| eel 
| | - 4 
| , a a a | | 
Cs an Se cane cement ee a tsi ae ee Ne ee 
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fos If the continuity check 





did not indicate a loorg, 
the actual part will be 


I 
| 
| 
| exploded into its 
| compcnent parts. 
L \ -peeewesJes coc e sock 
< jee] >]003 1 
| co / See i ORE ee a eee ef 
{ 


3.1.3.1 


EXPLOSION OF A 
hae 





[09] Upon return from 003, a 
test is made to detect 
whether the actual fart 


eS cen SEO anes SE cts SO eens SO a SETS ce SS ce cere eg ree cn ee cn ee ee 


all. If components were 


| 

| 

| has had component parts at 
| found, control is passed 

| 


back tc step 1. 





ae SO ee SY A ce me A cs OO ee SY A ees eS ce SE er cree AMAR sat cee SS ce EE cee eS Se cet cape SEO ee A ceed SP cee > cee ey SS ces EP ce ate SS een A nee SO cee A ee A cette OD enw ace “A cane “AY 


bee cee cameramen pms Sinn SEN SORES aD TT A ee ct AAI eae SS SER SERS cag SY yA ee SD es SERA a NSD ce SNE ns OE pe cas SD =e SUN gr cee Pe Een 








| 
| 
| 
| poe 
| [10] Flse, 004 is employed. 
| ti 
| 
| | 
| ls 
| | a >foou | 
| ow '" VNEXT PARENT ON 
] jon LEVEL 
| 3.1.3.2] 
j Ir- 
| if 11] Upon return, go to step 1. 
] aoe 
| 
| | 
| | 
| ‘ 
| jf 12] Go back to higher level 
| | module 000 or 001 
| { 
| | 
| | 
| | 
| 
ee ee ee ee, ee ee ee Be Reta ese oe J 
002 - VERTICAL FXPLOSICN CONTROL HIPOMAT 1.1 Diagram - 3.1.3-03 
es ee ke a de We eee ee ee ee OO Pr a ek Stee | 
| Notes ene Label | Ref } Notes Routine] Lakel Ref 
1fo3] A switch in the LFCB is used to | [LECR SNOC | tt 
| transfer information whether a | | {| 
part has component parts. The | | {| 
! switch is turned off before | it 
entering 003, i.e., it is | { | 1 | 
\ assumed that the part has | lI 
components. Upon return from | | 
003, the status of this switch { 
! is tested. If the switch is on, | | | i 
' 003 has indicated that the part | | ft 
| does not have components. | | | 
\ | 
| | 
| , | | 
ti 
' | | ! i. 
| ee | 
! | 1] 
| | | 1] 
! a } 
{ | 
{ | 
! | | | 1 
{ { { { 
1 ] | | 
{ | 1] 
| ; | 
( | | 
| | | | 
| ot | 
| 
H | | if 
| } | | 
| | 
| | | 
| | | 
t l j 
| . 7 } wl 
| a ee 
{ | | 
Ua i a a ee en a re Let ee ee ee a ee ee a ee ee er ee eee 
002 - VERTICAL EXPLOSION CONTROL HIPOMSAT 1.1 Diagras - 3.1.3-03 
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; PAGE 1 
Input Processing Output 
CR a ge tr eae a ee ees pee ey ee CS te ee er a ye ey See Dee eee eee oe Re ee ee ee ge 
| | { | 
! | | 
| | | 
| | 
| | | 
| ! | 
| _—-——-——. ~-------------1\ [01] Read the first or next 
{ / \ pert tse a/ | h--4 
{ i: yy | | component segment of the 
| 
| at as = 7 | actual part. If not found, | 
\ / | | processing is completed | 
| ieeecurs : | and control is passed to | 
| PARTS DB { | 
| { step 6. | 
! | | 
| | | 
! LLC { = 
{ Siete yee Es SNE | 08 Compare actual LLC and LLC 
FACTUAL [oaoae say [kces 
: t_-——--——_J | in the component. If the | 
| | actual LLC is net higher, | 
| | | no further processing is | 
: | required and control is | 
| passed back to step 1. | 
! | | | 
! | {[03 Save the old LLC of the --~--~.---——-—-— —j\ ? aaa 
{ | | component in an UFDPASTR | - a { ) | 
| | segment : 4 
| | J +----~- | 
| | \ / 
; | | eS Slt 
| CONTROL DB 
| _ 
| { \ 3a Replace the old LLC of the--~-~—---~-—-~— 4\ a, 
| | j{t-—4 wn nnn / / x 
{ | j component by the actual | H ) 
i\ / 
i | | LLC. | | Seeecet/ 
| | | 
| | I | \ / 
| | | ! eee 
| | | | PARTS DB 
I | 
| | | 
| | | 
| | | 
! | | 
| | { | 
| | | 
| | { | | 
! | | | 
| 
| | | 
| | | 
| | | 
EE ee ee ee l Peto eee | Wt he eT ete 
003 ~ EXPLOSION OF A PART HIPOMAT 1.1 Diagram - 3.1.3.1-01 
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SP aE TES eat, 


foil { If the no-component-f ound IL ECBSNOC] 
LECBSNOC condition was raised 
when retrieving the first 
seqment, a switch indicates to 
002 that the actual part does 
not have any component parts at 
all and another part has to he 


{ | | 
Label Ref |] Notes Routine! Label Ref 
selected for explosion. | 


IY gy “TE MOORE SDE ggg ee ED ct EE ce TE OOS een enti ME ota TOD epee MOE eS TE tee RS eetay AE ape SOD enamine SS center RM a ceye AAA eS ES HE ees ea 


cat A ere ED eres ON Cis NG ce IO eens SEN! cms eh HEMET taEsS CA ORIN EERE canna Acie mee SY enka ge EOD (OE ASAI IT re EAA ce CEIONERRAD ocneeas NIT SLES CMNETED ESRI THEME ante SETS GREE CASS CRD rye MA ck oe 


cate ares OO am, SRA gemeay ec Satay cance SOT ee ED asst CD eRe OO cesses, OD eee ED ema ED cary SOP esas, AS eae SS aayaes Sey SE aS ED cepeye A aatete SEAMS gaptae SY enact eny SEY eqmene ASO ants EAD EOS pases “OD ype SOS em nape “AED ee 
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APPENDIX B: 


DBD GENERATION 


DESCRIPTICN OF DBD GENERATION 


DBD generation is composed of a set of DL/I macro instructions, the 
execution of which creates the user-specified data base description 


(DBD) and flaces it in the DOS/VS source statement library. 


The 


following macro instructions represent DBD generation: 


Macro Instruction 
Name 





DBD 


DATASET 


SEGM 


LCHILD 


XDFLD 


FIELD 


DBDGEN 


FINISH 


The DBD generation macros 


utilize a universal set of globals. 


Purpose 


Allows the DL/I user to define the name of 
the DBD and the data base organization 


Allows the DL/I user to define names for data 
sets representing a data base, the device 
type used for storage of the data base, the 
logical record length, and the blocking 
factor for the physical records in the data 
sets representing the data base 


Allows the user to specify a DL/I segment, 
its parent segment, the segment length, the 
segment name, and segment prefix information 


Allows the user to define an index 
relationship or a logical relationship in 
which a segment will participate. 


Allows the user to define secondary indexing 
relationships. 


Allows the DL/I user to specify a data field 
or key field for a segment. The field 
definition includes the related segment field 
name, field start position in segment, field 
length, and field type. 


Causes the segments, fields, and data sets 
defined in the SEGM, FIELD, and DATASET macro 
instructions to be generated into an object 
module. 


Checks whether a DBDGEN statement was 
present. 


The COPY 


book for these globals is in the DOS/VS Source Statement Library and is 


named DLZDBGLE. 
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DBDGEN MACRO CALLING SEQUENCE 


7 
! 
! 
! 
{ 
{ 
! 
| 
§ 
{ 
‘ 
l 
{ 
| 
{ 
i 
{ 
t 
i 
{ 
t 
| 
! 
! 
{ 
| 
{ 
{ 
! 
{ 
! 
{ 
( 
! 
! 
{ 
{ 
! 
' 
| 
{ 
! 
! 
{ 
4 
4 
{ 
‘ 

wd 


External 
Macro ] Inner 1 | Inner 2 


EOD CADE ITGD SEED “AREY AES weigh UE IRD CED GERD NED ED CEKD GAD CEN CERES CURD ONES AE aes QHD ER ATED WER nee MRD ED MRED A cm eeEp etek <ONYY ate ct cub ay E> EL Gp alas eed aE eS aa aEle abaap ateep <i 


DBD DLZALPHA 


DATASET DLZALPHA 
DLZCKDDN 
DLZDEVSI 
SEGM DLZALPHA: 
DLZSOURS DLZXPARM 
DLZALPHA 
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XDFLD DLZALPHA 
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FIELD 
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7-20 Licensed Material - Property of IBM 





DBDGEN MACRO — GLOBAL SYMBOL CROSS REFERENCE 
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GLOBAL SYMBOLS 


ALIAS 
BLK 
CAPCYL 
CAPTRK 
CDNBR 
DBDERR 
DBDTERM 
DBNAME 
DEVADR1 
DEVADR2 
DNBR 
DSC 
DSLKL 
DSLSL 
DSSKL 
DSSSL 
ERROR 
EXTDB 
EXTDBN 
F@ 
FBABLK 
FBFF 
FLDCH 
FLDLG 
FLDNM 
FLDS# 
FLDSEN 
FLDSO 
FLDST 
FLDTY 
FSPF 
GENCHK 


7-21 


Licensed Material ~ Property of IBM 


DBDGEN MACRO — GLOBAL SYMBOL CROSS REFERENCE (cont'd) 


MACROS 
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-toong fp {| __futute {Ett fet tet tt tet telat 








algebraic 
character 
reference 
reference/set 


set 


— 
— 
— 
— 
— 


B = binary 
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MAXCHLD 
MAXDMAN 


raanrus [A 


MAXSEGS 
NSTRT 


— 
OBLK 


HISAM 
HSAM 
HSEQ 
HSORG 
INDLCH 
INDX 
LCDS# 
LCFLG 
LCLP# 
LCNM 
LCPS 

LCXD 

LEV 
OBLKSZ 
OLRECL 
ore 
PBLKSZ. 
PLIST | 

| PLISTK 
PLRECL 
PNBR 
QUITB 
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ROOT 
RTKEY 
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|S#FLD | A 
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DBDGEN MACRO — GLOBAL SYMBOL CROSS REFERENCE (cont'd) 





reference — 
reference/set 


S = set 
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binary 
character 
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A 
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SHSAM 
SMINDL 
SVLFLG 
XDFLG 


SFFLD 
SFLC 
SFLG1 
SFLG2 
SFLG3 

_SHISAM 
SLEV 
SLFLD 
SLSEQ 
SLU 


S#PC 
SCN 

SCRN 
SDS 83 


TRK 

TRK2 
TRK3 
TRK4 
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DBDGEN MACRO DESCRIPTIONS 


DATASET MACRO 

This is an external macro through which data set/data set group 
information is specified by the user. 

DBD MACRO 


This is an external macro through which DBD control information is 
specified by the user. 


DBDGEN MACRO 
This macro terminates the DBD specification process. If the error 


switch, DBDERR, is not set, the control block generation phase is 
entered to create the required block entries. 


DLZALPHA MACRO 


on ee Pe ee Pee eee Nr oe epee ee et ee eee aan 
| | | | 
| ( | AN | 
| |} DLZALPHA | AN1_ ,FIELD=,CHAR= 
| | [| ALL : | 
| | | 
Ci eae ete es Sg eee a ae a ee ee a 


This macro tests a specific character position (represented by the CHAR= 
Operand) or all character positions in a specific field (represented by 
the FIELD= operand) to determine if the character is one of the 39 
alphameric characters (A through Z, #, $, 2, and 0 through 9). The 
value range Of CHAR is 1 to 255. The default value is 1. The global 
symbol QUITB is set in the following cases: 


e If the positional parameter is not AN, AN1, or ALL and the character 
is not alphabetic (A through Z, #, $, @). 


e If the positional parameter. is AN and any chracter is not alphameric 
(A through Z, #, $, @, or 0 through 9). 


e If the positional parameter is AN1 and the first character tested is 
not alphameric (A through Z, #, $, 2, or 0 through 9). 


e If the positional parameter is ALL and the first character tested is 
not alphabetic (A through Z, #, $, 4). 


DLZCAP MACRO 


Qe ee eee ee ee en rn Te ERD RR ED 8 en ne A ED ED ED EE ED ee ee ape A ee oe ol Ge ae ee area | 
| | | | 
} .. | DLzcaP | DEVICE, BLOCKSIZ | 
| | | | 
L 


This macro is called by DBDGEN to calculate the block capacity per track 
and cylinder provided the blocks do not have keys. These numbers are 
required to generate some entries within the DTFSD (HSAM) and ACB- 
extension. The capacities are returned using global arithmetic 
variables (GBLA). Input values are: 
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& en 


DEVICE: 2314, 3330, 3333, 3340 
BLOCKSIZ: in bytes (key length = 0) 


Output (GBLA) and MNOTE: 


CAPTRK: number of blocks per track (GBLA) 

CAPCYL: number of blocks per cylinder (GBLA) 

MNOTE: DMAN150 if invalid device 

MNOTE : Comment containing $SCAPTRK and S$CAPCYL if calculation 


was successful 


DLZCKDDN MACRO 
| 
| | DLZCKDDN | FILENAME 


This macro checks the validity of filenames specified by the user and 
verifies that the specified filenames are not duplicated. 


The operand is: 
FILENAME 


is the one- to seven-character filename to be checked. 


DLZDEVSI MACRO 


| | 
| DLZDEVSI [ DEVICE | 


This macro is called by the DATASET macro to set device capacity values 
for the specified device type. The device value specified in the DEVICE 
operand of the DATASET statement is passed to this macro. 


DLZHIERS MACRO 


| 
| |] DLZHIERS | PC,PPC,PLEV 


This macro is called by the SEGM macro to validate the hierarchical 
sequence cof segment specifications. The macro maintains a 16-entry 
table (HSEQ) containing the lowest allowable PC at every level. 
The operands are: 
PC 
specifies segment physical (or sequence) code 


PPC 


Specifies parent physical code 
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PLEV 
specifies parent level 
An error message is produced if any of the following conditions exists: 
e PC # 1 and PLEV = 0 
e PLEV > 14 or PPC > PC 


e value of PPC # value of HSEQ table entry represented by PLEV 


DLZLRECL MACRO 


Cy re Cr a om ee a ee aa a aa aa a Ea aah ar aa RRR: | 


| | | | | 
| DLZLRECL | NUMBER 
| | | | 


De OD A I A I ND IN ED ED Ee a EE FD ND ND NG ED ED ED NE EE EE END AGES EE TED RG TD AED ED EE NEN ET ED GD ED ND ED Se | 


where NUMBER = 1 


This macro is called by DBDGEN to calculate LRECL and BLKSIZE values for 
the file number specified in the operand field of the macro call. 


DLZSEGPT MACRO 


MESS re ee ge ee ee pe A ee ae Fg Te pA ey ee ee Te 
| | | | | 
| DLZSEGPT | NUMBER | 
| | | 


ER ED UD ED 88 SO EP EP OD EP Oe Oe Oe 8 ED OD ee RO a EP CP a EP a re a ep a ee te ge ee ee ee ee ee Oe ee See | 


where NUMBER = 1 


This macro is called by SEGM, LCHILD, and DBDGEN to maintain the globals 
DSLSI and DSSSL, which contain the sizes of the largest and smallest 
segments in a data set, respectively. This macro produces error 
messages SEGM330, SEGM340, and SEGM350 if the segment referenced by the. 
operand value violates those rules. 


DLZSETFL MACRO 


| 
DLZSETFL | PN,RULES= | 
[ | | 


Caries cpa Se es ces ae eee reas alae ERP MRED CCDS ITD AD EPR CRETE GP ERD ED <YICd a RR OED CRU UIE GED ELD CE ENE SEED ERS EE GS SE ee ED Oe ED Cisne 


This macro processes the POINTER or PTR operand of the SEGM macro and 
sets the é6SFLG1(&€S) and &SFLG2(&S) globals to reflect the entered value. 
The &6SFLG1(&S) and &SFLG2(&S) globals set by this macro comprise bytes 0 
and 1 of the 4-byte flags field of the SEGTAB entry for this segment. 


This macro is not entered if the DLZXPARM macro encountered an error 


while generating the &PLIST matrix, or if the SEGM macro detected an 
error in the POINTER or PTR parameter list. 
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ON 


Messages: 

An error message is produced and processing is terminated if: 
e An invalid keyword is encountered in the parameter list, or 
e The RULES operand is omitted or invalid 


Flag Byte 1 (&SFLG1(&S)) is set as follows: 


Bit 1 - CTR If TWINBWD and/or LTIWINBWD is specified, 
2 ~~ TWIN Bit 2 and/or Bit 5 is set on, in 
3 - TWINBWD addition to Bit 3 and/or Bit 6, 
G - PARNT respectively. 
5 - LIWIN 
6 - LTWINBWD 
7 - LPARNT 
8 - NOTWIN 


Flag Byte 2 (&SFLG2(&S)) is set as follows: 

Bits 1 & 2 Indicate segment insert rule, where: 
10 - Physical 
01 - Virtual 
11 - Logical (Default) 


Bits 3 & 4 Indicate delete rule and set same as insert. (Default 
value is LOGICAL). 


Bits 5 & 6 Indicate replace rule and set same as insert. (Default 
value is VIRTUAL). 


Bits 7 & 8 Indicate physical location of inserts for nonsequenced 
segments, where: 


10 - First 
01 + Last (Default value) 
11 ~- Here 


The operands are: 
PN 

specifies the parent segment number 
RULES= 


Specifies the RULES= operand as specified on the SEGM statement 


DLZXPARM MACRO 


When used this macro extracts parameters from a sublist and stores them 
in a global matrix (PLIST). Null values in the parameter list are 
stored as null values in the PLIST matrix. 
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The operands are: 
PARM= 
specifies the input parameter list values 
NER= 


specifies the maximum number of operand values to be 
allowed in each subparameter 


DLZXTDBD MACRO 


Qe ee eg ee a ae eee ery ey SD ND ND ED EP AIG END ED ED AB EE EE EP NED END ED EU YD AND ND ALE INP AS AP AD AED AED TD eaten AED ED eda | 


| | | 
| | DLZXTDBD | DB,CODE l 


This macro builds an external data base reference table. It is called 
by SEGM, LCHILD, and DBDGEN. 


The Operands are: 

DB 
specifies a data base name or segment name 

CODE 
specifies the value SEGM or is omitted. 
If the value SEGM is specified in the CODE operand, the 
segment name (SN) is searched to locate the value 
specified in the DB operand; when found, the symbol 
EXTDBN is set to contain an 01 in byte 0, and bytes 1, 2, 
and 3 contain an offset into SEGTAB. If the segment is 
not found, an MNOTE error message is produced. 
If the CODE operand is omitted, the external data base 
reference table (DBNAME) is searched for the DB entry, 
and, if found, the symbol EXTDBN is set to contain the 
position of the found entry. If the DB value is not 


found, the value is added to the table and EXTDBN is set 
to that entry. 


FIELD MACRO 


This is an external macro used to define fields within a segment. 
FINISH MACRO 


This is an external macro used to check whether a DBDGEN statement is 
supplied. | | : 
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LCHILD MACRO 


This is an external 
for HIDAM and HDAM. 


SEGM MACRO 


This is an external 


XDFLD MACRO 


This is an external 
Statement secondary 


macro 


macro 


macro 
index 


used to define index or logical relationships 


used to define data base segments. 


used to define in connection with the LCHILD 


relationships for HIDAM and HDAM. 
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DBD GENERATION CONTROL BLOCK OUTPUT - DBDGEN 


The data base description block (DBD) is the result of each data base 
generation. 


e DIAGRAM OF DBDGEN CONTROL BLOCK OUTPUT 


GENERAL STRUCTURE: 


| DMANTAB | 


| 
| oe ee ee ape came ete EE NS AD A AO AE ED ES EE ND AUD CD UD eee aD EES eS aD SP ee ee 60 ee ee ee 2m qe ne ap ene ae ce ese ane aoe atte ane | 
ACB EXTENSION (SAME AS DMB) 


| 
(If HSAM or SSAM, DTFs) l 
| 
| 


ee CUp CURD cep <a> <aye ae age a aD ae Shy ee Cam ep eee ee es ee oe cone i cop ee ee ee ee ae a ee Alp Ee 08 i OO OR Oe ae ee ae oe a 


SEGTAB 
FLDTAB 


| 
| 
| ae ee ee ee ee ee ape age <p cee ae ee ge ee ee ee ee ee ee ee ee ee ae ee i a ee eo ew oe ee Re ee a ee eee -—| 
EXTDBD | 

| 


| LCHILD 


| ~----------- Sanna RRRRERRREREEReannaE teen 
SORTAB l 


OED tne CRD ED OED ERIS CED ED ED OD EE CED a Ce ame AD eS RD ED ee aD ee ne pee ED ED ee ND ee cere ee ap cen ep ee Oe ee A ee a oe eo ee oo | 


INDXTAB 


Se ae ee ee ge ere te et ge ne eee AE ED te ee ee a nn A ew OD ee ee Se ee > 2 i ee ee eee ee 


DACT 
(Same as DMB) 


CR wom Mae Ee, OED cho Geet ge Bo cee 


SO AD EBD AED ED YH IED AED END OED RD TED ED CER cae ERD AND ES EP END ED pe <eD eeee DEE ane ED ERED ED ED CD ERD CED OED Ee AED ND EH ante ORD <A ay he 


| 
| 
| 
| 
| 
| 
COMPRESSION EXIT CSECTS | 
(same as DMB) | 
l 
| 
| 
l 
| 


Rats cia <p aaah <ERED coe <a) «ORGS aD Oe age NE HERD SERED cere Ee i <ten ate oiagD D ean SEM) iin atin ERED een ORES coTD aed aEG ane cay CD ete epee ED cate CAPD ES CENty SUEEP amie ERS ate aiyete 


| 
| 
| 
| INDEX EXIT CSECTS 
| (same as DMB) 
l 
L 


i 
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1, DIRECTORY LAYOUT 





Hex Dec Name Ln Description 
0 0 AMODLEV 1 Release level (X‘'00‘'=1.0, 
X'11"=1.1) 
1 1 APREFIX 3 Address Of PREFIX 
4 q ASEGTAB 4 Address of SEGTAB 
8 8 AFLDTAB 4 Address of FLDTAB 
C 12 ALCHILD 4 Address of LCHILD 
10 16 AEXTDBD u Address of EXTDBD 
14 20 ASORTAB u Address of SORTAB 
18 24 ARMVTAB 4 Address of DMBDACS 
1c 28 AINDXTAB 4 Address of INDXTAB 
20 32 ADSGCB & Address of ACB extension 
2.2 PREFIX LAYOUT 
Hex Dec Name Ln Description 
0 0 PREDBDNM 8 DBD name 
8 8 PRENOLEV 2 Number of levels in data base 
A 10 PRENOSEG 2 Number of segments 
C 12 PREACCES 1 Organization 
Name EQU Meaning 
PRESHIS X*01'° Simple HISAM 
PREISAM1 Xx*02° HISAM 
PRESSAM X"04" Simple HSAM 
PREHSAM X*05" HSAM 
PREHD X* 06" HDAM 
PREHI Xx*07* HIDAM 
PRENDEX x* 08" INDEX 
D 13 PRENODSG 1 Number of data sets 
E 14 PRENODBD 2 Number of externally referenced data bases 
10 16 PRERNDM 8 Randomizing algorithm name | 
18 24 PRENOLCH 2 Number of logical children 
1A 26 PREAP 2 Number of root anchor points 
1C 28 DBDPFRBN 4 Maximum relative block number (HD) 
20 32 DECPFBYT 4 Maximum bytes in prime area (HD) 
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3. 


DMANTAB LAYOUT 


Name 





PRE[D1 
PREDEV1 
PREID 
PRENSGA 
PREDELTA 
PRELSL 
PRESSL 
PRELKL 
PRESKL 
PRELRECL 
PREBLKSZ 
PREOLREC 
PREOBLKS 


PRECDD2 


ACB EXTENSION 


"ACB Extension - ACBXT". 


SEGTAB LAYOUT 


of these tables exists for 


0 0 
8 8 
c 12 
D 13 
E 14 
10 16 
12 18 
14 20 
16 22 
18 24 
1A 26 
1c 0-28 
1E 30 
20 32 
ie 
see 
5. 
One 
0 0 
1 1 
2 2 
3 3 
4 4 
5 5 
6 6 
8 8 
c 12 
7-32 


Name 


SEGDSNO 

SEGPHYCD 
SEGPARPC 
SEGLEVEL 
SEGNOLCH 
SEGNOFLD 


SEGLENG 


SEGFREQ 


_SEGSEGNM 


1 
1 
1 
1 
1 
1 
2 


£ 


Description 


Input or prime filename 

Device type 

Data set group ID 

Number of segments in data set 

Delta scan cylinders (HD) 

Length of longest segment plus prefix 
Length of shortest segment plus prefix 
Length of longest key 

Length of shortest key 

Prime/input record length 

Prime/input block size (control interval) 
ESDS/output record length 

ESDS/output block size (control interval) 


ESDS/output filename 


each segment. 

Description 

Segment data set number 
Segment code 

Parent segment code 
Segment level 

Number of logical children 
Number of fields 


Segment data length (maximum length 
if variable length segment) 


Reserved 


Segment name 
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Mir, 


14 


15 


16 


17 


18 
1c 
1E 
20 
24 
26 


28 


20 


21 


22 


23 


24 
28 
30 
32 
36 
38 


40 


SEGFLG1 


SEGFLG2 


SEGFLG3 


SEGFLG4 


SEGLCHLD 
DBDSSN 

DBDSSOFF 
SEGFLDTB 
DBDSPFSZ 


SEGLENGV 


Reserved 


1 


1 


Prefix pointer flag 


EQU 


X* 80° 
Xx"40° 
X° 20° 
x"10" 
Xx" 08" 
X* 04" 
X" 02" 
Xx" 01" 


Meaning 


Counter 

Physical twin forward 
Physical twin backward 
Physical parent 
Logical twin forward 
Logical twin backward 
Logical parent 
Hierarchical 


Segment update rules 


EQU 


X"CO* 
x" 80" 
x" 4o" 


x" 30° 
x" 20" 
X*10" 


x” oc® 
x* 08" 
x" 04" 


x" 03" 
x"02" 
x"01" 


X* 08" 


Meaning 


Insert rule 
Logical 
Physical 
Virtual 

Delete rule 
Logical 
Physical 
Virtual 


Replace rule 
Logical 
Physical 
Virtual 


Physical location of inserts, when 
no key field 

Here (current position) 

First 

Last 


Parent has backward pointers to 
this segment 


Number of physical children pointed 
to directly by this segment 


Offset to first LCHILD entry 


Number of source segments 


Offset to first source segment 


Offset to first FLDTAB 


Segment prefix size 


Minimum segment length 
(0 if fixed length) 


Reserved 
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2C 4& SEGPACOP 1 VL-Compression options 


Name EQU Meaning 
SEGCPRT X'08° Segment has compression 
routine 


SEGTYPVL X*Q4" Segment is variable length 

SEGPACIT | X*01" Initialization exit 
requested for compression 
routine 


2D 45 SEGPACRT 3 Address of compression table 


62 FLDTAB LAYOUT 











Hex Dec Name Ln Description 
0 0 FLUNAME 8 Field name 
8 8 FLDSTART 2 Start position offset 
A 10 FLDFLAG 1 
EQU Meaning 
X"80* Last field for a SEGTAB 
xX" 40" Sequence field 
x* 20° Multiple sequence fields 
x* 10% Special FDB 
Field type 
x" 01" Hexadecimal ( 
X* 02° Packed 
X* 03" Character 
x* 04? Floating point 
B 11 FLDLEN 1 Field length 
Cc 12 FLDSNAME 8 Source field name 
14 20 FLCDOSEGTB Q Pointer to SEGTAB entry 
7.2 EXTDED LAYOUT 
Hex Dec Name Ln Description 
0 0 EXTDENM 8 Externally referenced data base name 
8 8 EXTRSVD 4 Reserved 
8. LCHDTAE LAYOUT 
Hex. Dec Name Ln Description 
0 0 §LCHSEGNM 8 Segment name 
8 8 LCHCODE 1 
Bit Meaning 
0=0 LCHEDBD address is a EXTDBD entry. 
0=1 LCHEDBD address is a SEGTAB entry 
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10. 


See 


11. 


see 


12. 


See 


9 LCHEDEBD 


12 LCHFLAG 


13 LCHIBYTE 
14 LCHPRDSG 


16 LCHFLDNM 


SORTAB LAYOUT 


Dec Name 
0 DBDSORNM 
8 DBDSSFLG 
9 DBDSSDBO 
INDXTABR 


fo.) 


Ww 


1-7 Reserved 


Offset to EXTDBD or SEGTAB entry 


EQU Meaning 


x" 80° Last entry for a SEGTAB 
X" 40” Reserved 
X* 20° INDEX entry 
Xx" 10" Reserved 
Xx" 08° LP definition 
Xx" O4" INDEX pointer 
Xx" 02" SNGL pointer 
Xx" 01" DBLE pointer 
Reserved 
Offset to paired segment 


Indexed field name 


Description 


source segment name 
Source segment flag - reserved 


Offset to data base entry 


“Secondary List - SEC (codes 64, Gu, 4O, 24, 20, O#)". 


DACT 


“Direct Algorithm Communication Table - DACT". 


COMPRESSION EXIT CSECTS 


"Compression CSECT - CPAC"™. | 
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APPENDIX C: PSB GENERATION 


DESCRIPTICN OF PSB GENERATION 


PSB generation is composed of a set of DL/I macro 

instructions, the execution of which creates the user-specified 
program specification block (PSB). 

The following macro instructions represent PSB generation: 


Macro Instruction 





Name Purpose 
PCB Allows the DL/I user to define a program 


communication block (PCB), One or more of which 
exist within a single PSB. A PCB must exist for 
each data base with which the associated 
application program PSB intends to interact. 


The PCB macro saves the type of PCB, associated 
data base name, the intended processing options 
on that data base, and the maximum key length 
within the data base. One or more PCB macros can 
be used in a single PSB generation. The limit is 
20 PCB macros per PSB generation. 


SENSEG The SENSEG macro instruction allows the DL/I user 
to specify a segment within a data base to which 
the application program associated with this PSB 
is sensitive. Up to 255 SENSEG macros may follow 
a PCB macro. 


PSBGEN The PSBGEN macro allows the user to specify the 
associated application program language and the 
name Of the PSB control block to be generated. 
The PSBGEN macro is the generating macro for the 
entire PSB control block and its internal PCB 
control blocks. 


SENFLD The SENFLD macro gives the DL/I user the ability 
to specify segment sensitivity on a field level. 
Up to 255 fields within a segment, and 4095 
fields within a PSB may be specified. 


VIRFLD The VIRFLD macro gives the DL/I user the 
| capability of defining fields in the user's view 
of a segment that do not exist in the physical 
view. In conjunction with the SENFLD macro, up 
to 255 fields per segment, and 4095 fields per 
PSB may be specified. 
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PSBGEN MACRO CALLING SEQUENCE 


External ] 
Macro j Inner 1 | Inner 2 | 
i | | 
PCB | DLZCKOPT | | 
{ DLZALPHA | | 
| | 
SENSEG | DLZCKOPT | | 
| | | 
PSBGEN | DLZPCBPD | | 
| | 


PSBGEN MACRO — GLOBAL SYMBOL CROSS 
REFERENCE 


GLOBAL SYMBOLS 


Peewee fas TTY foley 
ja | lt ts} ts {uls{s{s| 
a ae a we 1 
LFERTNA | A | 4095 | | {| { iriul jul 
Lerertum | c | 4095 [| | | | {Riul [ul 
| rsinctT | a | 4095 | | | | [riul [ul 

| FSNAME | c | 4095 | | | | Ir{ul |v 


DLZALPHA 
DLZCKOPT 
DLZPCBPD 





| rsrtTNa | a | 4095 | | | | Iris] |s 

| FsstRtT | A | 4005 | | | | Iriul lu 
| fstype | A | 4095 | | | {| [Rul [u 
Trsvatu | A | 4095 BEG 
EONFER Al) 
Cneco [a | 
a i aes eS! 
Pio | B25 al 
rs ee ba 
es oe Es 
a oe a 
jp Ppr | BO bi 
pps | BO ba 
| Pseo_ | C | 68 Es 
| Pss LT A 88 ad 
pouime. | BOL LR 
eee 2 ees 
| s#reo | aA] 
psec | BO] ba 
PSR nA RI 
PsN | c | 500 _| ie 
psp CL A | 500 is 
psec | A | 500 Ea 
of cf 500 Re 
Psst aA 5 
A = algebraic R = reference 

B = binary S = set 

C = character U = reference/set 
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PSBGEN MACRO DESCRIPTIONS 


DLZALPHA MACRO 


A description of the DLZALPHA macro appears in Appendix B. 


DLZCKOPT MACRO 


Rae te nam sap “Ope ee a> ap ae (Ae ED ED TEED wesee IEP AERO ENED CED “ENT <BUP <ED <Aume eee ED NED aR aE ieee SND <EeD UD ERD ER ate ape mane aoe preaona ae | 
| | | 
} DLZCKOPT | OPT,M l 
| | | 


This macro is called by the PCB macro or SENSEG macro to validate the 
PROCOPT operand. The macro generates either the PCB or the SENSEG 
*PROCOPT OPERAND IS INVALID’ error message. Global symbol PO or SPO is 
set to contain the processing option. 
The Operands are: 

OPT 


specifies the PROCOPT operand as entered 
on the PCB or SENSEG statement 


is PCB or SENSEG message number 
DLZPCBPD MACRO 
This is an inner macro called by the PSBGEN macro. It generates the 


PL/I dope vector table if LANG=PL/I is specified in the PSBGEN 
statement. 


PCB MACRO 


This is an external macro used to define a DB PCB. 


PSBGEN MACRO 


This is an external macro used to terminate PSB specifications, and, if 
no errors have been encountered, to cause the generation of the PSB 
control blocks. 


SENFLD MACRO 


This is an external macro used to specify sensitive fields within a 
sensitive segment. 
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SENSEG MACRO 


This is an external macro used to specify sensitive segments in a data 
base PCB. 


VIRFLD MACRO 


This is an external macro used to specify fields that exist in the 
user's view of a sensitive segment, but not in the physical view. 


J 


Licensed Material - Property of IBM 7-39 


PSB GENERATION CONTROL BLOCK OUTPUT - PSBGEN 


1. PSB ~- PREFIX 


Hex Dec 
0 0 
4 4 
8 8 
Cc 12 

10 16 

14 20 

20 32 

21 33 

22 34 

24 36 

26 8638 

28 40 

2. DB PCB 

Hex Dec 


Ln 


uy 


12 


j= 


NO 


Var 


Ln 


Description 
Address of SEGTAB 


Address of SORTAB 
Address Of DBREFTAB 
Reserved 

PST address (prefix size) 
Reserved 

Reserved 


PSB code 


PSB prefix size 


Reserved 


Offset to first DB PCE address 


Address of PCB(s) (one 4-byte address for each 
PCB) 


Description 


PL/I dope vectors precede PCB if LANG=PL/I 


0 


8 


10 
14 
ic 
1D 
20 
22 


24 


7-40 


0 

8 
10 
12 
16 
20 
28 
29 
32 
34 


36 


8 


2 


No wo WW F 


Var 


Data base name 

Level feedback 

Status code 

Processing options 

JCB address 

Segment name feedback 
Position 

Key feedback length 

Number of sensitive segments 
Offset to first SENSEG 


Key feedback area 
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= 


3. SEGTAR ENTRY 


Hex Bec in 
0 0 8 
8 8 4 
c 12 1 
D 13 3 
10 16 2 
12 18 2 
4 SORTAEB ENTRY 

Hex Dec in 
0 0 8 
8 8 1 
9 9 3 


S52 DBREFTAB ENTRY 


Hex Dec Ln 
0 0 12 
Cc 12 4 


6. FLS TABLE 


Hex Dec Ln 
0 0 4 
4 4 4 
8 8 i 
Cc 12 4 

10 16 4 

14 20 4 


7. %$FSB LIST ENTRY 


Hex Dec in 
0 0 1 
1 1 3 


Decription 


Segment name 

Processing options 

Flag 

PCB address 

Offset to parent segment 


Offset to FSB list 


Description 


Segment name 
Flag 


Offset to data base entry 


Description 


Data base name 


Reserved 


Description 
FSB list address 


FSB table address 

Field exit routine table address 
Field exit routine table length 
Initial value table address 


Initial value table length 


Description 


Number of FSBs for segment 


Address of first FSB for segment 
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APPENDIX D: DL/I MACROS 





This section describes the executable processing macros that standardize 
some processing routines and DSECTS and lists the macros that provide 
the DSECTs. 


DLZBLDL 


This macro is used to search the core image libraries to determine if a 
specified load module is present. Optionally, if the phase is present, 
the length of it is calculated for the caller. The DOS/VS LOAD macro 
(TXT=NO) is used to obtain the directory entry information. 


OPERANDS 

The descriptions and valid parameters for the two keyword operands are 
as follows: ; 

e PHASE The name of the phase in the core image library. 


=(reg) The register specified in parenthesis must point to the 
8—-byte name (padded with blanks if necessary). 


="name* The actual phase name may be specified enclosed in single 
quotes. 
= label This is the label of an 8-byte field containing the phase 


name with any necessary blanks. 


Register 1 is the default which must be loaded with the address of 
the name. 


e LENGTH Specified if the caller desires the actual length of the 
load module to be calculated by this macro. 


(reg) The register specified in parenthesis will contain the 
length in binary of the load module as indicated in the 
directory entry. Register 15 is invalid. 


label This is the label of a fullword in the calling program 
which will contain the length of the found phase on exit. 


If LENGTH is omitted, no length will be calculated. 


EXIT CONDITIONS 


R15 = 0 The phase was found and the length, if requested, has been 
returned. | 
R15 = 4 The phase was not found. ( 
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Registers 0 and 1 are destroyed unless specified for the length 
register. All other registers are unchanged. 


DLZBLKLD 


This macro is used by some DOS/VS DL/I utility programs to request the 
initialization module to load all control blocks needed to process a 
specified utility PSB. A utility PSB is built by the application 
control block creation and maintenance utility for every user DBD except 
a primary HIDAM index, logical, or HSAM. 


The utilities which use this special function have ‘ULU' in the first 
three bytes of the parameter card. When batch initialization determines 
(by utility name ~- either DLZURPRO, DLZURGSO, or DLZURGPO) that the 
DLZBLKLD macro will be used, it does not load any control blocks. The 
action modules and PST and SCD are loaded, however. When the utility 
first receives control, register 1 contains the address of the PST. 


OPERAND 


When the utility reaches the point where blocks are needed, the DLZBLKLD 
macro is executed: 


{ (reg) ] 
DLZBLKLD DMB= {label} 


The DMB operand indicates the address of the 8-byte DMB name for which 
blocks are required. Either the register number (reg) or the label of 
the field may be specified to indicate the address. If this operand is 
omitted, register 1 is assumed to contain the address of the DMB name. 


The expansion replaces the ending "D* of the DMB name with a ‘'U*. A 
CALL is made to ASMTDLI with the parameter list as follows: 


DC ACFUNC) Address of function 
DS CL8 The name of the utility PSB 
FUNC DC C'ELDB'* Function 


EXIT CONDITIONS 
After execution of this DLZBLKLD macro, register 15 contains a return 
code: 


R15 = 0 The blocks were loaded successfully. Register 1 contains the 
address of the list of PCB addresses. 


R15 # 0 The blocks were not loaded successfully. Register 1 contains 


the address of the name of the block which could not be 
loaded. ; 


Any previously loaded blocks have been overloaded and new buffer pools 
have been allocated. 
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When the utility program returns to the language interface at end-of- 
job, a return code is expected in register 15. If register 15 is 0, 

normal unload processing will occur. If register 15 is non-zero, no 

UNLD call will be made. This return is used when no LElocks have been 
successfully loaded. 


DLZDVCE 


The DLZDYVCE macro is available for the utilities to: 

~ Determine whether a logical unit is assigned or not. 
~ Determine if it is assigned to disk or tape. 

~ Modify the corresponding DTF. 

The format of the macro is as follows: 


DLZDVCE (MF={E|R]L[C}] 1, {listname] (r)}] 
[, DISKDTF={dtfname1| (r)}] 
{,MODIFY={NO] YES}] 
{, TAPEDTF={dtfname2| (r)}] 
{, FNAME={filename] (r)}] 
{ ' RECEM={FIXUNE| VARUNE | UNDEF | FIXELK|VARBLE} J 
{, DEVADDR=tSyYSnnn| (r)}] 
[ , DTFADDR={fieldname| (r)}] 
{, LNAME=listname] 
{, EOXTNT=routinename] 


The operands have the following meaning: 


MF specifies the type of code to be generated by this expansion. 
This allows for multiple invocations of the function without 
generating multiple copies of the code itself. 


E generates the mainline code and, unless ‘listname' is 
specified, a parameter list. 


Note: Only one execute form of the macro is allowed for 
one Single assembly. One, however, is required. If 
encountered more than once, it will be reset to R for all 
macros but the first one. 


The entry point of the mainline routine is always 
DLZDTENT. This will be used by all calls generated by R 
type macros. 


R A series of instructions to invoke the main routine, and, 
unless ‘listname" is also specified, a parameter list 
will be generated. DLZDTENT is used as branch address to 
the main routine. 


listname specifies a parameter list to be used with this 
execution or invocation. The list must be defined in the 
program with an MF=L macro or using the LNAME operand in 
an MF=E or MF=R macro. Listname is only valid with E or 
R. If listname is specified, any other operands | 
specified will permanently override the corresponding 
parameters in the list. Not specifying an operand, 
however, will not clear the corresponding field in the 
list. 
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DISKDTF 


TAPEDTF 


MODIFY 


FNAME 


Register notation may be used, in which case the register 
must contain the address of the list. 


L Only a parameter list but no code will be generated. 
Either the label field or the LNAME parameter (or both) 
can be used to assign a name to the list which can be 
referred to by any E of R form. 


Register notation in the operands of an L form macro is 
not allowed, except for the DTFADDR operand. 


C causes a check to be performed on all parameter lists 
generated during this assembly. All references to a 
Single list are totaled and the presence of all required 
operands is checked. An error summary is printed. This 
form of the macro should be used as the last occurrence 
of DLZDVCE in any single assembly. 


Note that passing this check error-free does not 
necessarily guarantee error-free execution, since the 
check cannot foresee the sequence in which the various 
DLZDVCE invocations are executed. 


If the MF Operand is omitted or invalid, it will default to E 
in the first macro encountered, and R in all other 
occurrences. 


specifies the name of the disk DTF to be modified if the 
logical unit is assigned to a disk device. If register 
notation is used, the register must contain the address of 
the DTF. 


Specifying DISKDTF=0 or a register containing zero will 
nullify the parameter. 


If this operand is not present at execution time (after any 
overriding), the routine will consider assignment to a disk 
device as invalid. 


specifies the name of the tape DTF to be modified if the 
logical unit has been assigned to a tape device. If register 
notation is used, the register must contain the address of 
the DTF. 


Specifying TAPEDTF=0 or a register containing zero will 
nullify the parameter. 


If this operand is not present at execution time (after any 
overriding), the routine will consider an assignment to tape 
as invalid. 


If MF=E or R without listname was specified, either DISKDTF 
or TAPEDTF or both must be specified. | 


Specifies whether or not the selected DIF is to be modified 
accordingly or not. MODIFY=YES is the default. If MODIFY=NO 
was specified, and a valid device type was found, register 15 
will have a negative return code, indicating that no 
modification has been done. 


Specifies the filename to be moved into the appropriate DTF. 
If not present at execution time, the DTF field is not | 
changed. For register notation, the register must point to a 
seven-byte field containing the file name. 
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Specifying a register pointing to a hex zero string will 
nullify the parameter. 


RECFM specifies the record format of the file. One of the values 
shown must be specified. Omission or invalid specification 
defaults to VARBLK. 


DEVADDR specifies the logical unit number to be tested. It must be 
in the form SYSnnn, where nnn is 000 to 243, or in register 
notation, in which case the register must contain the unit 
number aS a binary number in the same range. 


This parameter is required if MF=E or R without listname was 
specified. | 


DLZER 
pe ELS 


This macro is used in module DLZLBLMO to specify a message. Code is 
also generated to support selection by message id. 


OPERANDS 
DLZER ID=nnn,TEXT=text[,LAST=NO ] 
{ YES] 
ID = one to three digit message number (‘NNN in 'DLZNNNI'). 


TEXT = message text. Text is a string of parameters enclosed in left 
and right parentheses. Each parameter is either a character 
string enclosed in quotes; or a set of two values, the first 
indicating a length to be reserved for a field to be dynamically 
inserted, and the second the register that will contain the 
address of the field to be inserted (not s<egister R1 or R15). 


(The message number is generated by the macro and need not be 
included in the text.) 


TEXT=('THIS IS ',3,R5,°" AN EXAMPLE ',8,R4) 

LAST = "YES" indicates that no further messages exist. This is a 
special message. The contents of the specified register will be 
converted to BCD and stored in the field for each insert field. 

This macro also generates the code to select and format a message. 

Preceding the first call of DLZER, code must be supplied to establish 

addressability and equates must be supplied for ‘R1' and ‘R14". 

INPUT: 

*R1’ should contain the message code in binary format. | 

"R14" must contain the address of the routine to process a message once 

it has been located and formatted. 

OUTPUT: 

"R1" will contain a pointer to a two byte field containing the length of 

the message. The message directly follows this two byte field. The 

message is formatted as: 


ODLZNNNI TEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXT 
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DLZIPOST 


This macro is used by DL/I to post ECBs in an online environment. 


There are no operands. Register 2 must contain the address of the ECB 
to be posted. Bit 0 of byte 2 is set on. 


DLZIWAIT 


This racro is used by DL/I to communicate with an IWAIT routine 
(DLZIWAIT) to wait until an ECB is unposted. 


There are no operands. The PST must be addressable and register 2 must 
contain the address of the ECB that is to be waited for. The caller 
must have provided a USING SCD,15. Registers 14 and 15 are used to 
branch to the DLZIWAIT routine. 


DLZTRCAL 


This macro is used by action modules to invoke the tracing facility. 
Refer to DL/I DOS/VS Diagnostic Guide for a description of this macro. 


DLZTRPRM 


This macro is called by the DLZTRACE macro to parse parameter lists. It 
is similar to the DLZXPARM macro Of DBDGEN (see “DLZXPARM Macro" in 
Chapter 6). In addition to the interface described for DLZXPARM, the 
length of each parameter list member is passed to the caller in the GBLA 
fields S$PLEN(25). 


DL ZMPCPT 


The master partition controller (MCP) partition table is used to pass 
control information when processing batch partition application programs 
under MPS (Multiple Partition Support). The MPC partition table resides 
in the transaction work area. There is one entry for every partition 
defined during system generation, except for the partition where the MPC 
resides. 


DLZTIWAB 


This macro provides the mapping for the BPC batch partition control 
information for the DL/I task termination routine under MPS (Multiple 
Partition Support). This information resides in the BPC's task 
transaction work area. 
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DLZXTAB 


This macro provides the mapping for the XECBTAB macro DEFINE, DELETE, 
and CHECK options under MPS (Multiple Partition Support). 


DLZXCB1 


This macro maps the DL2ZXCBn1 and the data that follows it. It is used 
to check data under MPS (Multiple Partition Support). 


MACROS USED TO CREATE DSECTS FOR DL/I SYSTEM CONTROL BLOCKS 


The following macros are used to generate DSECTS for the DL/I control 
blocks: 


DLZBFFR 
DLZBFPL 
DLZDDIR 
DLZIDLI 
DLZPDIR 
CLZPPST 
DLZPSIL 
DLZPST 

DLZSCD. 


Macros used only by utilities to generate DSECTs: 


DLZCKPT 
CLZDTF 
DLZIDED 
DLZRECO 
DLZUCHDR 
DLZUCOLE 
DLZUCREC 
DLZUCUMC 
DLZUDHDR 
DLZURGUF 
DLZURHDR 
CLZUSTAT 
DLZTRENT. 


Miscellaneous macros: 


DLZDLIST Creates parameter list for DLZIDUMP macro 
DLZDLP Log record DSECTs and declarations 
DLZHDSO Work area for DLZDHDSO 

DLZIDUMP IPCS dump hook macro 

DLZQUATE Register equates 

DLZSBIF Work area for DLZDBHOO 

DLZUMSG Messages for utilities 

DLZWA Work area used by DLZDLDOO 

DLZXMTWA Work area used by DLZDXMTO. 


DL/I QUEUING FACILITY MACROS 


Four macros are available to request processing of a specific function 


by the queuing facility module (DLZQUEFO). The functions that can b 
requested and the macros that can be used are: | 
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Function Requested Macro Used 


Enqueue DLZENQ 
Verify DLZVER 
Dequeue DLZDEQ 
Purge DLZPUR 


The functions are described in Section 3 of this manual. The format of 
each macro and the description of the operands is as follows: 

Formats 

DLZENQ [(PST=r1i](,LEV={RO| UPD] EXC}J £, ID=r2) (, FLAG=x‘hh"* ] 

DLZVER (PST=r1][(,LEV={RO| UPD] Exc}1(, [1D=r2])1,FLAG=x"thh'" ] 

DLZDEQ (PST=riJ][,LEV={RO| UPD| EXC}) £, 1D=r21){, FLAG=x"hh'"] 


DLZPUR {PST=r1)[,FLAG=x"hh' ] 


Operands 
PST=r1 


specifies the symbolic (or absolute) name of a register 
containing the address of the PST. It this operand is omitted, 
register one is assumed. 


LEV={RO| UPD] EXC} 
specifies the level involved; RO = read only, UPD = update, and 


EXC = exclusive. If omitted, it is assumed the PSTOLEV field in 
the PST is set with the proper code. 


ID=r2 
specifies the symbolic (or absolute) name of a register 
containing the address of the seven byte field containing the 
resource ID. If omitted, it is assumed the address is stored in 
the PSTWRK2 field in the PST. 

FLAG=x"hh'* 


Specifies the byte value that is ‘OR*ed into the return code for 
those tasks currently waiting for the resource. 
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